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1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RMOS/3/2 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH USES 
FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RMO5S/3/2 
DISK SUSSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODULE 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO DETECT ERRORS AND FAULTS IN THE RH MASSBUS CONTROLLER; 

TO DETECT ERRORS AND FAULTS IN THE RM MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN THE RH/RM TO A FIELD 
REPLACEABLE MODULE OR MODULES. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST IS THE RMO5/3/2 DISK SUBSYSTEM, EXCLUDING 
THE STORAGE MODULE DISK DRIVE AND THE RH11 OR RH70 MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10 BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO5/3/2 DISKLESS 
DIAGNOSTIC: 

PDP-11 PROCESSOR 

20k MEMORY 

KWii-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 


TERMINAL 
RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIES (ANY COMBINATION OF RMO5'S, RMO3'S OR RMO2'S) 


2.2 MEDIA REQUIREMENTS 
NONE 


2.5 PREREQUISITE DIAGNOSTIC PROGRAMS 
NONE 


3.0 OPERATING PROCEDURE 


ee ee 
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SEQ 0004 
58 : 
ip 3.1 LOADING 
61 THE PROGRAM MAY .BE LOADED BY EITHER PAPER TAPE, USING’ THE 
7 STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
¢3 . APPROPRIATE LOADING DEVICE. 
65 
“6, 
uA 3.2 SWITCH OPTIONS a 
09 THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
iy SWITCH IS ON. 
72 SW15 HALT ON ERROR 
73 SwW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
74 SwW13 INHIBIT ERROR TYPEOUTS 
7§ SW12 UNUSED 
76 SwW11 INHIBIT TEST ITERATIONS 
?7 Suid BELL ON ERROR 
78 S LOOP ON ERROR 
4. SwO8 § LOOP ON TEST IN SWO7-00 
81 a: LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO SPECIFY 
a¢ A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON. 
84 
85 
ry 3.3 STARTING 
88 THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
ay 200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
90 THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN. A STAND-ALONE 
91 ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
3 TO CONTROL TEST CONDITIONS. 
94 
95 
96 3.4 HALTING | 
98 THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR 


BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL. 


3.5 RESTARTING . 
> 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4 
4.0 OPERATOR INTERFACE 


4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME iT 
IS STARTED AFTER BEING LOADED. 
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4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM |.D.. 


THE FIRST QUESTION TYPED OUT IS: ‘‘TYPE HELP TEXT (L) N ?”’, 
IF THE OPERATOR RESPONDS WITH A ‘'Y'', THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A ‘N'’ AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 


ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
en I a MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 


EXAMPLE 1 


RMCS1=176700 <CR> :NO CHANGE IN ADDRESS 
RMVEC=000254 <CR> sNO CHANGE IN ADDRESS 


EXAMPLE 2 


RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> sCHANGE VECTOR ADDRESS T0 260 


ON THE INITIAL START, THE NEXT QUESTION TYPED IS, ‘TYPE ‘‘A’' TO 
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN". THEN, ‘DRIVE(S):" IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN ‘‘A’*, TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
""CARRIAGE RETURN'’. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE "DRIVE(S):" PROMPT IS TYPED. 


THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 


"UNIT STATUS: 


~_ |. | ~ wo 
AEN ANRAPODO NINA NINA = - 4 
FUOIZSVRSVSRVIN oon woo 


NOW 


FHP KLEE Ennwwwnw 


T PRESENT 
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NOT PRESENT’ 


THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 & 2 WILL BE TESTED, WHILE DRIVES 
1, & 3 - 7 WILL NOT BE TESTED. 


THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
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STATUS OF THE DRIVE: 
*DRIVE(S) TO BE TESTED, 0, 2° 


NO DRIVES aah AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 


IF 
TYPED TO THE OPERAT 
"DRIVE(S) TO BE TESTED, NONE‘ 


THE PROGRAM WILL THEN, EITHER START TESTING THE phy AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 


ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 


"DRIVE 0 
DRIVE 2° 


AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 


NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 


OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 
L=LETTER. 


4.35 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS_ EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 


"END OF PASS ? 


THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 


THE LAST END OF PASS REPORT. 
"TOTAL ERRORS SINCE LAST REPORT Q* 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF _ THE 


PROGRAM. 


4.5 PROGRAM HALTS 


THERE ARE WO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM, 


PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


SEQ 0006 
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THE RMO5/3/2 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED, DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH 
GIVE A COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING 
MODULES IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS 
eg PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST 


THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS PROGRAM: 


DRVA 0 — RMO3, TEST# 25, ERR# 66, PC=017566 
ILLEGAL REGISTER ERROR ‘‘ILR’’ (RMER1, BIT 01) SHOULD BE SET 
DURING REGISTER TRANSFER 

PROBABLE FAULT(S): 

(NOT INCLUDING CABLES OR CONNECTORS) 

IF MODULE, M7686, 


EXPCTD RECEVD TEST 
STATUS STATUS REGSTR 
000002 000000 176750 


4.6 ERROR REPORTS 


THE RMO5/3/2 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE UNIT NUMBER SEING 
TESTED, DRIVE TYPE, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH GIVE A 
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES 
IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS NORMALLY 
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND 
ae TO THE ERROR, . INCLUDING EXPECTED AND ACTUAL TEST 


4.7 EXECUTION TIME 

TIME FOR RMO2/3: 

PASS 1 OF THE PROGRAM TAKES ABOUT 20 nana PASS 2 AND 
SUBSEQUENT PASSES TAKE 1 MINUTE 35 SECONDS 


5.0 ENVIRONMENTAL SUPPORT 
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286 5.1 PROCESSOR COMPATIBILITY 
288 THE MO5/3/2 DISKLESS DIAGNOSTIC IS EXECUTABLE ON ANY PDP-11 
289 PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
291 , 

292 

293 

29% 5.2 DUAL PORT CONFIGURATIONS 

5.96 THE RMOS/3/2 DISKLESS DIAGNOSTIC iS NOT EXECUTABLE ON RMOS/3/2 
597 SUBSYSTEMS HAVING THE DUAL PORT OPTION UMLESS THE DUAL PORT SWITCH 
298 IS SET TO THE APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE 
559 POSITION (A/B). 

300 

301 

302 

2 5.3 MEMORY PARITY HARDWARE 

205 MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
306 THE RMO5S/3/2 DISKLESS DIAGNGOSTIC. 

308 

309 

$10 5.4 MEMORY MANAGEMENT HARDWARE 

312 MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RMOS/3/2 
$12 DISKLESS DIAGNOSTIC. 

315 

316 

$17 5.5 ACT11. APT11 COMPATIBILITY 

319 THE ROS /3/ 2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 
220 AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 
354 SEECUHE A QUICK Past DNTEG WE FiRET PAGS in cPPeRt OF QUItE venity 
352 MODE . 

323 

324 

325 

526 5.6 XXDP COMPATIBILITY 

38 0C* THE RMOS/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP 
3 3 IN DUMP AND CHAIN MODES. 

331 

332 

355 5.7 OPERATING SYSTEM COMPATIBILITY 

335 THE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 
336 SYSTEM. 

337 

338 

339 

$40 6.0 TEST DESCRIPTION 

342 THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
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a USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 


NONTRANSIENT HARDWARE FAILURES. 


THE RMO5/3/2 DISKLESS DIAGNOSTIC CAN BE EXECUTED USING AN RH70 


OR AN RH11 MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE O. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 


TEST 1 TRANSFER TEST 
PURPOSE : 


THE 


THE 


TO VERIFY THAT THE RMO5/3/2 CAN COMPLETE A REGISTER TRANSFER 
ON THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER"' IS 


NOT STUCK IN AN INACTIVE STATE. 
PROCEDURE : 


WRITES AND READS REMOTE REGISTERS FOR THE 


THE PROGRAM 
SELECTED DEVICE. REGISTER Mg eh AND PARITY ERRORS 
AND THE TEST FAILS IF A *“NONEXISTENT DEVICE ERROR'’ 


ARE 


IGNORED, OR 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS’ THE 


NEXT DEVICE TO BE TESTED. 
PROBABLE FAULT: 


THE TEST a IF THE SELECTED DEVICE IS NONEXISTENT OR 


IS 


SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 


THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE 


PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 


1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 
3. CS MODULE 


ne i + ee — m+ — 


IS 


SEQ 0009 


eee 
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2 CTOD TEST 
PURPOSE : 


TO VERIFY THAT DATA CAN BE_ TRANSFERRED TO AND FROM THE 
RMO5/3/2 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
“CONTROLLER TO DEVICE*’ HAS NOT FAILED. 


PROCEDURE : 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF ‘‘IF3 CTOD HOLD 
H’’ IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 


PROBABLE FAULT: 


1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 


3 MASSBUS INITIALIZE TEST 
PURPOSE : 


TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
THE MASS BUS. 


PROCEDURE : 

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 
PROBABLE FAULT: 
1. ASYNCHRONOUS MASSBUS MODULE 
2. IF MODULE 


3. CS MODULE 


| ee See 
eeu 


TEST 4 CLEAR STUCK ACTIVE TEST 


—_ re EN 
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SEQ 0011 
nf 4 PURPOSE : 
4 
459 TO VERIFY THAT ‘MBA CLR L°* ON THE CS MODULE IS NOT STUCK IN 
“60 AN ACTIVE STATE. 
4 
s6e : PROCEDURE : 
464 CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT, 
465 AFTER WHICH 1°S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
466 MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE’ TEST 
yer’ IS OK, ELSE. "MBA CLR L'’ IS PROBABLY STUCK ACTIVE. 
469 PROBABLE ant: 
470 
on 1. CS MODULE 
rif 2. IF MODULE 
rte 3. ASYNCHRONGUS MASSBUS MODULE 
477 
478 
479 
480 
eB} TEST 5 TRISTATE TRANSFER TEST 
re > PURPOSE : 
485 TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 
486 TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
re oA BIT POSITION IS INDEPENDENT. 
rts PROCEDURE : 
491 THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A _ NONZERO 
492 VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 
493 USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
494 AS IS NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 
saz POSITION. 
497 THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
498 THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
499 MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
500 EACH BIT POSITION. 


501 

206 FINALLY, THE TEST WRITES A SINGLE ONE B’! PATTERN IN BIT QO 
50 OF SELECTED REMOTE REGISTERS AND VERIFIES THe. (HE PATTERN CAN BE 
504 READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
abe BIT POSITIONS. 

rye PROBABLE FAULT: 

4 1. ASYNCHRONOUS MASSBUS MODULE 

511 2. IF MODULE 

als 

51 3. CS MODULE 





M 
CZ7RMPBO RMOS/3/2 DSKLS TST 1 MACRO VO04.00 4-APR-81 01:24:25 PAGE 3-9 


SEQ 0012 
514 
$15 4. DS MODULE 
516 
$17 
518 
519 
| $20 
| 3 TEST 6 REGISTER SELECT TEST 
| $38 PURPOSE : 
| Se TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A STUCK 
| 526 POSITION. 
367 
° 8 PROCEDURE : 
268 EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS IN 
531 THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO, THEN 
538 WRITING ONES IN THOSE DEVIC= REGISTERS FOR WHICH THE LINE MUST BE 
53 THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 
534 STUCK AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 
535 S REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE, 
536 HE ONES REGISTER IS WRITTEN FIRST. 
538 REGISTER SELECT LINES 1, 2, 4 AND 8 ARE TESTED IN THIS 
039 MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE ‘‘ILR TEST'’. 
rae PROBABLE FAULT: 
S48 1. IF MODULE 
345 2. ASYNCHRONOUS MASSBUS MODULE 
547 
548 
549 
550 
31 TEST 7 DRIVE TYPE TEST 
$58 PURPOSE : ; 
338 TO TEST THE ‘DRIVE TYPE'' REGISTER, RMDT. 
3? PROCEDURE : 
559 THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT 
360 CORRESPONDS TO A SINGLE PORT OR DUAL PORT RMOS, 7 OR RMO2 DRIVE. 
se PROBABLE FAULT: 
56 
564 1. IF MODULE 
565 
296 
67 
568 
569 


570 TEST 10 DEVICE AVAILABLE TEST 
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SEQ 0013 
$71 
276 PURPOSE : 
27% TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
258  ] PROCEDURE : 
378 . THE PROGRAM TESTS ‘DVA'', BIT 11 OF RMCS1. 
280 PROBABLE FAUL7: 
BY} 1. IF MODULE 
58 é 
584 
585 " 
85 
238 TEST 11 HOLDING REGISTER TRANSFER TEST 
230 PURPOSE : 
59 : TO VERIFY THAT THE HOLDING REGISTER IS NOT STUCK AT ONE, 
237 STUCK AT ZERO, AND THAT THERE IS NO BIT INTERFERENCE. 
52 PROCEDURE : 
597 THE PROGRAM TRANSFERS ONES, THEN ZEROS TO THE HOLDING 
238 REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 
600 THE PROGRAM TRANSFERS ZEROS, THEN ONES TO THE HOLDING 
69) REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO. 
60 3 FINALLY, THE TEST TRANSFERS A SHIFTING ONE BIT PATTERN AND 
60% VERIFIES THAT EACH BIT IS INDEPENDENT. 
606 PROBABLE FAULT: 
608 1. IF MODULE 
609 
610 
611 
18 
ol% TEST 12 CONTROL STATUS #1 TRANSFER TEST 
018 PURPOSE : 
618 TO VERIFY THAT BITS 01 THROUGH 05 OF CONTROL STATUS REGISTER 
61 1 ARE NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT 
: INTERFERENCE. 
4 PROCEDURE : 
4 THIS TEST WRITES ONES IN CONTROL STATUS REGISTER 1, RMCS1, 
5 THEN WRITES ZEROS AND VERIFIES THAT THE BITS ARE NOT “STUCK AT 
ose ONE. THE GO BIT IS NOT TESTED IN THIS TEST. 


—_ ~ - 
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NEXT, THE TEST CLEARS THE CONTROL STATUS REGISIER, RMCS1, 
WRITES ONES IN BITS 01 THROUGH O05 AND VERIFIES THAT THE BITS ARE 
NOT STUCK AT ZERO. THE GO BIT IS NOT TESTED. 


THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO AND 
FROM RMCS1 AND CHECKS FOR ADJACENT BIT INTERFERENCE. 


PROBABLE FAULT: 
1. IF MODULE 


13 ERROR REGISTER #1 TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT ERROR REGISTER 1 IS NOT STUCK AT ONE OR ZERO, 
AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 


THIS TEST WRITES ONES IN ERROR REGISTER 1, RMER1, THEN 
WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE. 
"'UNSAFE'' IS NOT TESTED DURING THIS TEST. IN ORDER TO LIMIT THE 
PROBABLE FAULTS TO ONE OR TWO MODULES, THE TEST IS EXECUTED IN 3 


PARTS WiTH EACH PART TESTING THOSE BITS WHOSE PRESET FUNCTIONS 
ARE DERIVED FROM THE SAME MODULE. 


THE TEST WRITES ZEROS IN ERROR REGISTER 1, RMER1, THEN 
WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1 
AND CHECKS FOR ADJACENT BIT INTERFERENCE. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 
3. DS MODULE 


14 CLEAR OFFSET STUCK ACTIVE TEST 


PURPOSE : 


TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET MODE IS NOT 
STUCK IN ACTIVE STATE. 


SEQ 0014 


- 
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685 


TEST 


TEST 





PROCEDURE : 

CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK. 
PROBABLE FAULT: 

1. IF MODULE 

2. DS MODULE 

15 OFFSET REGISTER TRANSFER TEST 


PURPOSE : 


TO VERIFY THAT THE OFFSET REGISTER IS NOT STUCK AT _ ONE 
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE. 


PROCEDURE : 
THE OFFSET REGISTER, RMOF, IS WRITTEN WITH ONES, THEN 
Suan aT hg ZEROS AND READ TO VERIFY THAT NONE OF THE BITS ARE 


THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS AND WRITTEN 
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE OFFSET REGISTER IS TESTED WITH A SHIFTING ONE 
BIT PATTERN. 


PROBABLE FAULT: 


1. IF MODULE 
2. DS MODULE 
16 ERROR REGISTER #2 TRANSFER TEST 


PURPOSE : 


TO VERIFY THAT ERROR REGISTER 2, RMER2, IS NOT STUCK AT 
ONE, STUCK AT ZERO, AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 
THE TEST WRITES ONES THEN git ZEROS IN a. AND VERIFIES 
THAT NONE OF THE BITS ARE STUCK AT ONE. ‘'SKI"' Pe ARE NOT 


TESTED. IN ORDER TO LIMIT THE NUMBER OF PROBABLE F ULTS TO ONE 
OR TWO MODULES, THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART 


enone ee ee ee ee ee | 


SEQ 0015 


CZRMPBO 8M05/5/2 DSKLS TST 1 


TEST 





D2 
MACRO VO04.00 4-APR-81 01:24:25 PAGE 3-13 


SEQ 0016 
TESTING THOSE BITS WHOSE PRESET FUNCTIONS ARE DERIVED FROM THE 
SAME MODULE. 
THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2, AND WRITES 
ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN THE 
REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT. 


PROBABLE FAUL?: 
1. IF MODULE 
2. CS MODULE 
3. DS MODULE 


17 SERIAL NUMBER TEST 
PURPOSE : 

TO VERIFY THAT THE SERIAL NUMBER CAN BE READ. 
PROCEDURE : 


THE TEST READS THE SERIAL NUMBER REGISTER SEVERAL TIMES AND 
VERIFIES THAT THE NUMBER IS THE SAME EACH TIME. 


PROBABLE FAULT: 
1. CS MODULE 


20 CONTROL BUS PARITY DETECTION TEST 
PURPOSE : 


TO TEST THE etl S PARITY CHECKING LOGIC FOR THE MASSBUS 
ASYNCHRONOUS CONTROL BU 


PROCEDURE : 


THIS TEST WRITES A SHIFTING ONE BIT DATA PATTERN IN THE DISK 
ADDRESS Be Eh USING ‘PAT'’ TO CONTROL THE STATE OF THE PARITY 
BIT. ‘PAR'’ STATUS, BIT O03 OF RMERT, IS CHECKED AFTER EACH 
PATTERN IS  TRANSFERRED..NOTE THE FOLLOWING TABLE SHOWS A SET OF 
pS A ae THAT COULD BE USED INSTEAD OF A SHIFTING ONE BIT 


DATA PATTERN PAT PAR 


ee - 


a 
CZRMPBO RMOS/3/c USKLS TST 1 MACRO VO4.00 4-APR-81 01:24:25 PAGE 3-14 


SEQ 0017 
799 
800 1 1 
801 075266 C 0 
ae 163753 0 0 
80 116535 1 1 
804 
805 PROBABLE FAULT: 
806 
Be 1. IF MODULE 
BO 2. ASSYNCHRONOUS MASSBUS MODULE 
4 
ap 
Bia TEST 21 CONTROL BUS PARITY GENERATION TEST 
aie PURPOSE : 
819 TO TEST THE RMC5S/3/2'S PARITY GENERATING LOGIC FOR THE MASSBUS 
ast ASYNCHRONOUS CONTROL BUS. 
as s PROCEDURE : 
824 THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO THE 
825 DISK ADDRESS REGISTER. AFTER EACH PATTERN IS READ BACK, ‘™MASSBUS 
826 CONTROL BUS PARITY ERROR’' IS TESTED AND SHOULD BE ZERO..NOTE THE 
827 FOLLOWING SET OF TEST PATTERNS COULD BE USED INSTEAD OF THE 
828 SHIFTING ONE BIT PATTERN. 7 
880 DATA PATTERN MCPE 
oe 0 
83 056747 0 
854 135672 0 
835 163135 0 
846 
tH PROBABLE FAULT: 
+48 1. IF MODULE 
oh 2. ASYNCHRONOUS MASSBUS MODULE 
B28 
844 
845 
846 7 
rt TEST 22 RMDA, RMDC FAULT TEST 
Bee PURPOSE : 
851 TO VERIFY THAT THERE ARE NOT FAULTS WHICH INHIBIT THE 
8>¢ PROGRAM FROM WRITING RMDC AND RMDA. SPECIFICALLY, THESE FAULTS 
Sez INCLUDE: 
855 .'GO H’* STUCK HIGH, WHICH WOULD INHIBIT THE REGISTER LOAD 
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FUNCTION, 


. RIP '°* STUCK LOW, WHICH WOULD CONSTANTLY CLEAR THE 
REGISTER 


. EBL** STUCK, WHICH WOULD INHIBIT THE CLOCK FUNCTION. 
PROCEDURE : 

THE TEST WRITES AND READS BOTH RMDC, AND RMDA. WITH ZEROS, 
bins a we THE TEST PASSES JF EITHER REGISTER CAN BE WRITTEN 


PROBABLE FAULT: 


1. DS MODULE 
2. IF MODULE 
3. CS MODULE 


23 DISK ADDRESS TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE 
OR ZERO, AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 

THIS TEST PRESETS THE DISK ADDRESS TO A NONZERO VALUE, THEN 
USES A MOVE TO CLEAR THE REGISTER.THE TEST THEN READS RMDA AND 
VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 

THEN THE TEST PRECLEARS THE MASSBUS ADAPTER DISK ADDRESS 
REGISTER (RMDA), LOADS IT TO ALL ONES, AND VERIFIES THAT NONE OF 
THE BITS ARE STUCK AT ZERO. 

A SHIFTING ONE BIT PATTERN IS TRANSFERRED TO AND FROM THE 
DISK ADDRESS REGISTER, RMDA, AND THE TEST VERIFIES THAT EACH BIT 
IS INDEPENDENT. 

PROBABLE FAULT: 
1. DS MODULE 


2. IF MODULE 


TEST 24 DESIRED CYLINDER TRANSFER TEST 


—————e eee eee 


SEG OO14 


a LLL 
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PURPOSE : 

TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER, RMDC, 
IS NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT 
INTERFERENCE. 
PROCEDURE : 


THIS TES?’ WRITES ONES IN THE DESIRED CYLINDER REGISTER RMDC, 
THEN WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 


THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER, 
pooh WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 


FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM 
RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


25 ILLEGAL REGISTER TEST 
PURPOSE : 

TO TEST ILLEGAL REGISTER ERROR DETECTION IN THE RMOS/3/2. 
PROCEDURE : 

THIS TEST READS ALL LEGAL REGISTERS AND VERIFIES THAT ““ILR"’, 
BIT 2 OF RMER1T DOES NOT SET. THEN, TO THE EXTENT ALLOWED BY THE 
MASSBUS CONTROLLER, IT READS ILLEGAL REGISTERS AND VERIFIES THAT 
“TLR” 18 SET. 
PROBABLE FAULT: 
1. IF MODULE 


2. ASSYNCHRONOUS MASSBUS MODULE 


26 RESET GO BY INIT TEST 
PURPOSE : 


eee se we ee _— 


SEQ 001 
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SEQ 0020 
po! TO VERIFY THAT GO CAN BE RESET BY INITIALIZE. 
ee PROCEDURE : 
976 THE TEST SETS GO THEN CLEARS GO USING MASSBUS INITIALIZE, 
one 1.£.. CONTROLLER CLEAR. 
977 PROBABLE FAULT: 
978 
979 1. CS MODULE 


2. IF MODULE 


TEST 27 DIAGNOSTIC MODE TEST 
PURPOSE : 


TO VERIFY THAT “DIAGNOSTIC MODE’’, BIT 0 OF RMMR1, IS NOT 
STUCK AT ONE OR ZERO. 


PROCEDURE : 

THE RMOS/3/2 IS INITIALIZED AND ‘DMD*’ IS CHECKED FOR ZERO. 
*DMD'* IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK 
AT ZERO, THEN WRITTEN WITH ZERO AND READ TO VERIFY THAT iT IS NOT 
STUCK AT ONE. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 





SSSSESE gga sseseeseseeesaees 


007 

008 

009 

010 

ae TEST 30 MOL TEST 

a8 PURPOSE : 

015 TO VERIFY THAT ‘MEDIUM ON LINE'' STATUS CAN BE SET AND RESET 
B18 USING MAINTENANCE UNIT READY. 

O18 PROCEDURE : 


AFTER INITIALIZING THE SUBSYSTEM, THE TEST SETS ‘DIAGNOSTIC 
MODE: AND READS THE DRIVE STATUS REGISTER, RMDS, EXPECTING MOL, 
BIT 12 TO BE ZERO. ‘MAINTENANCE UNIT READY’*, BIT 9 OF RMMRI, IS 
SET AND MOL SHOULD BE ONE. THE TEST THEN WRITES A ZERO IN MUR 
AND READS RMDS, VERIFYING THAT ‘MEDIUM ON LINE’’ IS ZERO. 


PROBABLE FAULT: 
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i. CS MODULE 
2. IF MODULE 
31 WRITE LOCK JEST 


PURPOSE : 


TO VERIFY THAT ‘WRITE LOCK*' STATUS, WRL, CAN BE SET AND 
RESET USING ‘MAINTENANCE WRITE PROTECT''’, MwP. 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MwP, BIT 03 OF 
RMMR AND READS RMDS TO VERIFY THAT WRL, BIT 11 IS SET. THEN 
MWP IS RESET AND WRL SHOULD BE ZERO. 


PROBABLE FAULT: 


1. CS MODULE 
2. IF MODULE 
32 DRIVE FAULT TEST 


PURPOSE : 


TO VERIFY THAT ‘DEVICE CHECK’’, DVC, AND ‘UNSAFE’, UNS, CAN 
BE SET AND RESET USING "MAINTENANCE DRIVE FAULT’’, MDF. 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MDF, BIT 06 OF 
RMMR1, AND READS RMER3 TO VERIFY THAT DVC, BIT O07 IS SET RMER1 IS 
ALSO READ AND UNS, BIT 14 SHOULD ALSO BE SET. THEN MDF IS RESET 
AND DVC AND UNS SHOULD BE RESET. 

PROBABLE FAULT: 
i. CS MODULE 


2. IF MODULE 


TEST 35 SEEK ERROR TEST 





a ee ee et eee 


SEQ 0021 


sess 
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PURPOSE : 


TO VERIFY THAT ‘SEEK ERROR'’, SKI, CAN BE SET AND RESET USING 
“MAINTENANCE SEEK ERROR'', MSER. 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE TEST SETS MSFR, BIT O7 OF 
RMMR1 AND READS RMER3S TO VERIFY THAT SKI, BIT 14 IS SET. MSER IS 
RESET AND SKI SHOULD RESET. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


34 PIP TEST 
PURPOSE : 


TO VERIFY THAT ‘POSITIONING IN PROGRESS*’, PIP, CAN BE SET 
AND RESET USING ‘MAINTENANCE ON CYLINDER’*, MOC. 


PROCEDURE : 


DIAGNOSTIC MODE IS SET THEN MOC, BIT 08 OF RMMR1 IS SET AND 
aa oie 13 OF RMDS, SHOULD BE ZERO. MOC IS THEN RESET AND PIP 


PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


35 EBL TEST 
PURPOSE : 


TO VERIFY THAT END OF BLOCK STATUS ‘TBL*' CAN BE SET AND 
RESET USING DIAGNOSTIC END OF BLOCK ‘DEBL"’. 


PROCEDURE : 


THAT EBL IS 
SET. FINALLY, 
AND CHECKS FOR 


THE PROGRAM SETS DIAGNOSTIC MODE AND VERIFIES 
RESET. THEN IT SETS DEBL AND VERIFIES THAT EBL iS 
THE TEST TRANSFERS A SHIFTING ONE BIT TO RMMRI, 


re a ee ee 


SEQ 0022 
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| DEBL BEING SET BY AN ADJACENT BIT. 
PROBABLE FAULT: 
1. CS MODULE 


-? 


TEST 36 LAST SECTOR, LAST TRACK TEST 
PURPOSE : 


TO VERIFY THE DESIRED TRACK/SECTOR PLA ON THE DS MODULE 
USING RMMR1, BITS 01 AND 02. 


PROCEDURE : 

THE TEST WRITES ALL POSSIBLE tie IN THE DISK ADDRESS 
REGISTER, RMDA, AND VERIFIES ‘tLS*’ " LST’ STATUS FOR EACH 
PATTERN. THE PROCEDURE IS DONE ONCE FOR 18 BIT FORMAT AND ONCE 
FOR 16 BIT FORMAT. 

PROBABLE FAULT: 
1. DS MODULE 


2. CS MODULE 


TEST 37 RMDA COUNT TEST 
PURPOSE : 
—. THAT THE DISK ADDRESS REGISTER (RMDA) INCREMENTS 
ut. 


PROCEDURE : 

THE TEST INCREMENTS RMDA_ USING DIAGNOSTIC END OF BLOCK 
"DEBL*’ AND VERIFIES THE RESULT IN 18 BIT FORMAT AND ONCE FOR 16 
BiT FORMAT. 

PROBABLE FAULT: 


1. DS MODULE 


OOOO CO VOWDWDWOOwWWWOOO VNNNN NNN AAAAAA MAA NMYAMANAVUIMMVIL HHLRHL LE LE 
ESR SSS PBR SBSH ARAN TS SHS SR SSeS eee esSESSE 


TEST 40 RMDC COUNT TEST 
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PURPOSE : 


TO VERIFY THAT THE DESIRED CYLINDER REGISTER, RMDC, 
INCREMENTS PROPERLY. 


PROCEDURE : 
THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END OF BLOCK, 


“DEBL**, AND VERIFIES THE RESULT IN 18 BIT FORMAT AND 16 BIT FORMAT. 


PROBABLE FAULT: 
1. DS MODULE 


41 LBT TEST 
PURPOSE : 


TO INSURE THAT. LAST BLOCK TRANSFERRED, ‘LBT'', CLEARS WHEN 
RMDA IS WRITTEN, AND SETS WHEN THE LAST SECTOR IS TRANSFERRED. 


PROCEDURE : 
THE TEST USES DIAGNOSTIC EBL TO SET LBT, AND’ TRANSFERS TO 


RMDA TO RESET LBT. THE RESULTS ARE VERIFIED IN 18 BIT FORMAT AND 
16 BIT FORMAT. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


42 COMPOSITE ERROR TEST 
PURPOSE: 

TO TEST **COMPOSITE ERROR'', BIT 14 OF RMDS. 
PROCEDURE : 


THE TEST USES INITIALIZE AND DIAGNOSTIC MODE TO FORCE ALL 
ERRORS TO ZERO THEN VERIFIES THAT ‘ERR’ IS ZERO. EACH ERROR IS 
INDIVIDUALLY SET AND ‘‘ERR'’ SHOULD BE ONE FOR EVERY ERROR TESTED. 
ADDRESSES #2 AND #17 OF THE COMPOSITE ERROR PLA ARE NOT TESTED. 
"‘ABORT** AND “EXCEPTION’’ OUTPUTS OF THE PLA ARE NOT TESTED. THE 
TEST FAILS IF ERR IS NOT ZERO WITH ALL SET ARGUMENTS ZERO OR IF 
ERR IS NOT ONE WITH ANY SET ARGUMENT ONE. 


SEQ 0024 
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| SEQ 0025 
| 1255 | 
1$29 PROBABLE FAULT: 
| 1257 
1258 1. IF MODULE 
ie 
1563 
126 
1264 TEST 43 WRITE GO TEST 
1366 PURPOSE : 
1268 TO VERIFY THAT GO CAN BE SET. 
PROCEDURE : 
1272 THE TEST ENABLES THE DEBUG CLOCK, THEN TRANSFERS A NOP 
1273 FUNCTION CODE AND GO BIT TO RMCS1, VERIFYING THAT GO SETS. ALL 
167% FUNCTION CODES ARE TESTED. 
PROBABLE FAULT: 
78 1. IF MODULE 
2. CS MODULE 


TEST 44 BRANCH MULTIPLEXOR TEST 
PURPOSE : 


TO VERIFY THAT THE OUTPUT OF THE COMMAND SEQUENCER BRANCH 
MULTIPLEXOR DOES NOT HAVE A FAULT. 


PROCEDURE : 


aN aR eek aha gh ol lie 


co 
WM 


295 WITH DEBUG CLOCK ENABLED, THE TEST USES VARIOUS FUNCTION 
CODES AND REGISTER CONDITIONS TO ADDRESS THE TEST BIT MULTIPLEXOR 
97 SUCH THAT THE TEST BIT, BIT12 OF RMMR2, CAN BE CHECKED FOR A 
35 STUCK FAULT. 
PROBABLE FAULT: 
1. CS MODULE 


TEST 45 SET/RESET GO TEST 
PURPOSE : 


SSEUS ORES 
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TO VERIFY THAT GO CAN BE SET AND RESET. 
PROCEDURE : 

THE SUBSYSTEM IS eae AND PUT SET-CERTAIN FUN. MODE WITH 
"DEBUG CLOCK ENABLE’’, BIT 14 RTAIN FUNCTION CODES 
ARE WRITTEN IN RMCS1 AND PROGRAM R S RMCS1 TO VERIFY THAT 
GO IS SET. RMDS is ALSO READ TO SERIFY THAT ‘DRY'* IS RESET. 
THEN THE PROGRAM STEPS THE DEBUG CLOCK USING BIT 15 OF RMMR1 AND 
VERIFIES THAT ‘‘GO’’ RESETS AND ‘DRY‘* SETS. USING A FUNCTION CODE 
THAT RESETS GO AT A DIFFERENT PROM ADDRESS. THE TEST FAILS IF GO 
DOES NOT SET OR CANNOT BE RESET BY THE COMMAND SEQUENCER. THE 
TEST ALSO FAILS IF “DRIVE READY'' IS NOT THE COMPLIMENT OF GO. 
PROBABLE FAULT: 

1. CS MODULE 


2. IF MODULE 


46 END 1 RESET GO TEST 
PURPOSE : 


TO VERIFY. THAT THE COMMAND SEQUENCER CAN RESET GO AT THE 
END1 LOCATION. 


PROCEDURE : 
THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION CODE 
32 IN DIAGNOSTIC MODE AND VERIFIES THAT GO RESETS ON THE 
SPECIFIED CLOCK CYCLE. 
PROBABLE FAULT: 


1. CS MODULE 


47 SET PULSE TEST 
PURPOSE : | 

TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE. 
PROCEDURE : 

WITH DEBUG CLOCK ENABLED, THE TEST STEPS THE C 


OMMAND 
SEQUENCER THROUGH PARTS OF VARIOUS FUNCTION CODES AND CHECKS 
CONTINUE, BIT 06 OF RMMR1 TO DETERMINE IF SET PULSE IS BEING 


SEQ 0026 


B 3 
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SEQ 0027 
1369 GENERATED. 
| 1370 
| 4879 PROBABLE FAULT: 
137@ 
137 1. €S MODULE 
1374 
1375 
1376 
1377 
1378 
Ht ta TEST 50 SET/RESET IVC TEST 
1381 PURPOSE : 
1383 TO TEST “INVALID COMMAND'' STATUS FOR EACH FUNCTION CODE. 
1585 PROCEDURE : 
1387 THE PROGRAM RESETS VOLUME VALID USING ‘MAINTENANCE UNIT 
1388 READY'’, BITO9 OF RMMR1, THEN LOADS THE FUNCTION CODE AND GO IN 
1389 RMCS1.° EACH FUNCTION CODE IS TESTED AND ‘IVC’, BIT 12 OF RMER2 
1390 IS CHECKED. 
1391 | 
1592 PROBABLE FAULT: 
139 | 
1394 1. CS MODULE. 
1395 ; 
1396 2. IF MODULE 
1397 
1398 
1399 
1400 
1401 
140@ TEST 51 SET LSC TEST 
140 
1404 PURPOSE : 
1406 TO VERIFY THAT "LOSS OF SYSTEM CLOCK'’ CAN SET AND RESET. 
1408 PROCEDURE : 
1410 THE TEST ENABLES THE DEBUG CLOCK AND SETS THE GO BIT. AFTER 
1411 WAITING ENOUGH TIME FOR THE ONE SHOT TO SET, THE TEST DISABLES 
141¢ THE DEBUG CLOCK AND VERIFIES THAT LSC SETS. 
1414 PROBABLE FAULT: 
1416 1. CS MODULE 
1417 
1418 2. IF MODULE 
1419 
1420 
3 
1258 
1406 TEST 52 DECODE TEST 
1425 





ere 


| CZRMPBO RMOS/3/2 DSKLS TST 1 


wiv 
wis 


—_ = 3 Le 
ERK KLE 
MUA 
0OO~O 


2S 


MACRO v04.00 


iEST 


TEST 





C 3 
4-APR-B81 01:24:25 PAGE 3-25 


PURPOSE : 

TO VERIFY THAT THE “DECODE’* FLOP ON THE IF MODULE SETS WITH 
owe EDGE OF ‘‘SET PULSE** EXCEPT WHEN ‘‘COMPOSITE ERROR'' IS 
PROCEDURE : 

THE TEST USES “VOLUME VALID*’ AND ‘OCCUPPIED’’ TO DETERMINE IF 
THE DECODE FLOP IS SET OR RESET. INITIALLY. VV AND OCCUPPIED ARE 
RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET vV OR OCC 
AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME C S ARE 
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES 
THAT NEITHER BIT SETS. 

PROBABLE FAULT: 


1. JF MODULE 


53 SET/RESET VOLUME VALID TEST 
PURPOSE : , 


TO VERIFY THAT ‘VOLUME VALID’ RESETS WITH THE LEADING EDGE 
Pa UNIT READY, AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET 


PROCEDURE : 

USING "MAINTENANCE UNIT READY’, BIT 9 OF RMMR1, THIS TEST 
FORCES A ZERO TC ONE TRANSITION OF UNIT READY AND VERIFIES THAT 
VOLUME VALID,BIT 6 OF RMDS IS ZERO. THEN THE TEST EXECUTES A 
PACK ACKNOWLEDGE COMMAND, VERIFYING THAT VV SETS. THE PROCEDURE 
IS REPEATED WITH A READ IN PRESET COMMAND. 

PROBABLE FAULT: 


1. IF MODULE 


54 ILLEGAL FUNCTION TEST 
PURPOSE : 

TO TEST ILLEGAL FUNCTION ERROR IN THE RMOS/3/2. 
PROCEDURE : 


WITH DIAGNOSTIC CLOCK ENABLED TO INHIBIT THE COMMAND 
SEQUENCER, THIS TEST VERIFIES THAT “‘ILF’*’, BIT 0 OF RMERI, IS OFF 


SE A 


SEQ 0028 
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FOR LEGAL FUNCTION CODES AND ON FOR ILLEGAL FUNCTIONCODES. THE 
STATUS OF THE °*GO'* BIT IS IGNORED. 
PROBABLE FAULT: 
1. IF MODULE 


55 OCCUPIED TEST 
PURPOSE : 


TO VERIFY THAT “‘OCCUPIED’' IS SET DURING DATA TRANSFERS AND 
IS RESET FOR ALL OTHER COMMANDS. 


PROCEDURE : 

FOR EACH DATA TRANSFER COMMAND, ‘OCC’’, BIT 15 OF RMARI 
SHOULD BE ONE, DEBUG CLOCK IS ENABLED TO PREVENT GO FROM 
RESETTING BEFORE STATUS IS SAMPLED. 


PROBABLE FAULT: 


1. IF MODULE 
2. CS MODULE 
56 READ IN PRESET TEST 


PURPOSE : 


TO VERIFY THAT "READ IN PRESET’ COMMAND IS DECODED, AND IN 
PARTICULAR, TO VERIFY THAT ‘‘IFS READ IN CMD L'* IS NOT STUCK AT 


PROCEDURE : 


EACH VISIBLE STATUS OR REGISTER BIT WHICH IS CLEARED BY 
"READ IN PRESET’' IS SET. THEN THE RIP COMMAND IS EXECUTED AND 
THE TEST VERIFIES THAT ONE OR MORE BITS ARE CLEARED. The 
FOLLOWING ARE USED DURING THE TEST. 


- ALL BITS OF RMOF ARE SET BY A MOVE INSTRUCTION AND THE TEST 
PASSES IF USED BITS ARE ZERO AFTER THE RIP COMMAND. 


. THE DESIRED CYLINDER REGISTER, RMDC, IS SET WITH A MOVE 
Ne die th AND THE TEST PASSES IF BITS 00-09 ARE ZERO AFTER THE 


. THE DISK ADDRESS REGISTER, RMDA, IS SET WITH A MOVE INSTRUL?2ON 


. 
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1540 AND THE TEST PASSES IF BITS 00-07, AND BITS 08-15 ARE ZERO AFTER 
ees THE RIP COMMAND. 

1543 THE TEST FAILS IF NONE OF THE PRESET TERMS ARE ZERO AFTER THE RIP 
1544 COMMAND. 

1545 

1544 PROBABLE FAULT: 

4547 

1548 1. JF MODULE 

1549 

1550 2. DS MODULE 

1951 

1326 

155 

1554 

1322 TEST 57 RIP/RMOF TEST 

1388 Beeeceut 

1559 TO VERIFY — “READ IN PRESET‘'' RESETS FMT16, ECI AND HCI BITS 
1aat 10, 17 AND 12 OF RMOF. 

1206 PROCEDURE : 

1564 FMT16, ECI AND HCI ARE SET, THEN A RIP COMMAND IS EXECUTED AND 
ieee EACH BIT SHOULD BE ZERO. 

1567 PROBABLE FAULT: 

1568 

1569 1. IF MODULE 

1570 

1571 2. DS MODULE 

1356 

157 

1574 

1575 

1576 

ib ida TEST 60 RMDA/RMDC/RIP TEST 

1303 PURPOSE : 

1581 TO VERIFY THAT ‘READ IN PRESET‘' a THE DESIRED CYLINDER 
Fs ADDRESS, RMDC,. AND THE DISK ADDRESS, RMDA 

HF PROCEDURE : 

1586 RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AFTER THE RIP 
us +4 COMMAND. 

PROBABLE FAULT: 

71. DS MODULE 

1 
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SEQ 0051 


67 OFFSET COMMAND TEST 
PURPOSE : 

TO VERIFY THAT ‘OFFSET MODE'’ SETS WITH OFFSET COMMAND. 
PROCEDURE : 


THE TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT ‘OM’, BIT 
OO OF RMDS IS ONE. 


PROBABLE FAULT: 
7. IF MODULE 


62 RETURN TO CENTER TEST 
PURPOSE : 

TO VERIFY THAT “RETURN TO CENTER’ RESETS OFFSET MODE. 
PROCEDURE : 

OFFSET MODE. BIT O00 CF RMDS, IS SET WITH OFFSET COMMAND, 
THEN THE TEST EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES 
THAT OFFSET MODE RESETS. OFFSET DIRECTION IS ALSO SET AND 
CHECKED FOR ZERO AFTER THE COMMAND. 

PROBABLE FAULT: 


1. IF MODULE 


63 RMDC CLEAR OFFSET TEST 
PURPOSE : 


TO VERIFY THAT CLEAR OFFSET IS ACTIVE WHEN THE DESIRED 
CYLINDER ADDRESS IS WRITTEN. 


PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND, WRITES RMDC, AND 
VERIFIES THAT OM, BIT 00 OF RMDS IS ZERO. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


-_—— sn we eee - oo 
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1654 
1655 
1656 
1657 
1658 
1659 TEST 64 EBL CLEAR OFFSET TEST 


1660 
1003 PURPOSE : 
663 om VERIFY THAT OFFSET MODE CLEARS WHEN HEAD SWITCHING 


—— es - on 


PROCEDURE : 

THE TEST EXECUTES AN OFFSET COMMAND TO SET OFFSET MODE. 
9 AFTER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK 
670 ADDRESS IN RMDA, THE TEST FORCES AN EBL AND VERIFIES THAT OFFSET 
671 MODE RESETS. 
1673 PROBABLE FAULT: 


1675 1. DS MODULE 


Sess EES 


1681 TEST 65 RUN AND GO TEST 






1683 PURPOSE : 
1685 TO VERIFY THAT ‘'RUN AND GO"' FLOP SETS DURING READ AND WRITE 
1686 ¢ s. 

1687 

ye +3 PROCEDURE : 

1690 THE RMOS/3/2 IS INITIALIZED AND A DATA TRANSFER COMMAND WITH 
1691 GO SET IS WRITTEN IN RMCS1. ‘RUN AND GO", BIT 14 OF RMMR1 SHOULD BE 
1692 ONE FOR EACH DATA COMMAND. THE DEBUG CLOCK IS ENABLED SO THAT GO 
1698 DOES NOT RESET BEFORE STATUS IS TESTED. 

1695 PROBABLE FAULT: 

1696 

1697 1. CS MODULE 

1699 2.° SYNCHRONOUS MASSBUS MODULE 

1701 

170¢ 

170 

1704 

1705 TEST 66 SET IAE TEST 

1206 

707 PURPOSE : 

1709 TO VERIFY THAT INVALID ADDRESS ERROR CAN SET. 


eee _ 
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TEST 


TEST 


7; 
ye 
© 


PROCEDURE : 

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES A_ SEARCH COMMAND, VERIFYING THAT ““JAE*’ SETS. THE 
PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF THE IAE DOES NOT 
SET. AND THE TEST FAILS IF IAE CANNOT BE SET. 
PROBABLE FAULT: 
1. DS MODULE 


2. IF MODULE 


67 SEARCH, SEEK, READ, WRITE TEST 
PURPOSE : 


TO VERIFY THAT THE “SCH SK R OR W'' DECODE ON THE IF MODULE 
IS CORRECT FOR ALL FUNCTION CODES. 


PROCEDURE : 

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES EACH COMMAND TO WHERE SET PULSE IS ACTIVE AND 
VERIFIES THE DECODE BY CHECKING ‘‘IAE"’. 
PROBABLE FAULT: 


1. IF MODULE 


70 INVALID TRACK/SECTOR TEST 
PURPOSE : 


TO VERIFY THAT INVALID TRACK AND SECTOR ADDRESSES ARE 
DETECTED. 


PROCEDURE : 


THE TEST LOADS THE TEST PATTERN IN RMDA AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT ‘‘IAE*’ SETS. 


PROBABLE FAULT: 
1. DS MODULE 
2. TRACK ADDRESS GPTION JUMPER 


a eae —— < - -_—= 
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71 INVALID CYLINDER TEST 
PURPOSE : | 

TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED. 
PROCEDURE : 


THE TEST LOADS THE TEST PATTERN IN RMDC AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT “‘IAE*’ SETS. 


PROBABLE FAULTS: 
1. DS MODULE 
2. CYLINDER ADDRESS OPTION JUMPER 


72 SET AOE TEST 
PURPOSE : 

TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED. 
PROCEDURE : 

THE TEST LOADS THE ADDRESS OF THE LAST SECTOR IN RMDA_ AND 


RMDC, THEN INITIATES A DATA COMMAND WITH DEBUG CLOCK ENABLED. 
END OF BLOCK IS FORCED TO INCREMENT THE SECTOR ADDRESS, AND _ THE 


TEST VERIFIES THAT "‘AOE’’ IS SET, IN 18 BIT FORMAT AND 16 BIT FORMAT. 


PROBABLE FAULT: 
1. DS MODULE 


73 SET RMR TEST 
PUnh, OSE: 

TO VERIFY THAT “REGISTER MODIFICATION REFUSED'' SETS WHEN A 
REGISTER IS WRITTEN WHILE GO IS SET, EXCEPT WHEN THE ATTENTION OR 
MAINTENANCE REGISTER IS WRITTEN. 

PROCEDURE : 


“DEBUG CLOCK ENABLE’ IS SET TO INHIBIT THE COMMAND 


OE A 


SEQ 0034 


— ao ee oe eee 


ee rr EE 
' ee i ae 


| 1825 
1836 
1827 
1828 


— —* 2 


_—_ — 


REPRE REAR AAD 


RREKARKKEK KR Nes 


ee et et et 0 oo I I I 3 6 I oe) oe 2 ae oe eo oe tt oe oe eo 
00 00 00 00 C0 OD OO OV OO OD 
MMNAVUIVIWMUVIWNUIUW? 
OOnC UISWN-OOOnN 


BESSSSSSSS SSL FERRE 





CZRMPBO RMOS/3/2 DSKLS TST 1 


TEST 


TEST 


TEST 


4 3 
MACRO VO04.00 4-APR-81 01:24:25 PAGE 3-32 


SEQUENCER, THEN A NOP COMMAND AND GO BIT IS WRITTEN IN RMCS1 
WITHOUT STEPPING THE DEBUG CLOCK, THE TEST WRITES RMMR AND RMAS, 
T SET RMR STATUS. THEN RMDA IS WRITTEN AND RMR 


WHICH SHOULD NO 

STATUS, BIT O2 OF RMER?, SHOULD BE ONE. 
PROBABLE FAULT: 

1. IF MODULE 


74 PGM STATUS CHECK 
PURPOSE : 


TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND THE DRIVE 
REQUEST STATUS BIT ARE COMPATABLE. 


PROCEDURE : 

THE TEST REPORTS AN ERROR IF PGM IS ON AND DRO IS OFF. PGM 
IS NOT PREDICTABLE IN’ THE CASE WHERE DRO IS ON BECAUSE OF THE 
PORT SELECT SWITCH. 
PROBABLE FAULT: 


1. IF MODULE 


75 DVA/DPR STATUS CHECK 
PURPOSE : 


TO VERIFY THAT DEVICE AVAILABLE STATUS AND DRIVE PRESENT 
STATUS ARE SET. 


PROCEDURE : 

DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON. 
PROBABLE FAULT: 
1. IF MODULE 


76 PORT REQUEST TEST, PART 1 
PURPOSE : 


ne i -— 


SEQ 0055 


 CZRMPBO RMOS/3/2 DSKLS TST 1 


| 188 
| 1883 


SSSSSSSISISSSSSSESESES 


Sessa 


WN — OC OONOAUS Ar O 


Oo NOU 


Css 


SIRT 
NOU wh 


OOVWOCOOVOWOVOWVO CCWWOW ODVWUDOVDOODOWOWWOwWww 





TEST 


TEST 





kK 3 
MACRO V04.00 4-APR-81 01:24:25 PAGE 3-33 


TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
WHEN THE PROGRAM READS RMCS1. 


PROCEDURE : 
THE TEST “7% tai att COMMAND, THEN, ASSUMING THE PORT 


IS RELEASED, IT RE CS1, THEN READS RMMR2 AND VERIFIES THAT 
ONE OF THE PORT REQUEST FLOPS IS SET. 


PROBABLE FAUL?: 
1. IF MODULE 
2. CS MODULE 


77 PORT REQUEST TEST, PART 2 
PURPOSE : 


TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
WHEN THE PROGRAM WRITES RMAS. 


PROCEDURE : 


THE TEST EXECUTES A RELEASE COMMAND THEN WRITES RMAS_ AND 
READS RMMR2, VERIFYING THAT ONE OF THE REQUEST FLOPS IS SET. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 


100 PORT REQUEST TEST, PART 3 
PURPOSE : 


TO VERIFY THAT PORT REQUEST SETS WHEN ANY REGISTER EXCEPT 
RMAS IS WRITTEN. 


PROCEDURE : 


THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES THAT 
THE PORT REQUEST FLOP IS ON. 


PROBABLE FAULT: 
1. IF MODULE 


SEQ 0056 


— 
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2. CS MODULE 


101 RELEASE TEST 
PURPOSE : 


TO VERIFY THAT A RELEASE COMMAND CAN RESET THE REQUEST FLOPS 
RQA AND RQB IN MAINTANCE REGISTER #2. 


PROCEDURE : 


THE PROGRAM SETS REQUEST FLOP BY WRITTING THE RMCS1 REGISTER 
THEN, EXECUTES A RELEASE COMMAND TO RESET THE REQUEST FLOP. 


PROBABLE FAULT: 
1. IF MODULE 


102 WRITE ATA TEST 
PURPOSE : 


TO VERIFY THAT ATTENTION CAN BE CLEARED BY WRITING’ THE 
ATTENTION SUMMARY REGISTER. 


PROCEDURE : 

THE PROGRAM RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN 
ATTENTION, THEN WRITES THE ATTENTION SUMMARY REGISTER AND 
VERIFIES THAT ATTENTION IS RESET. 

PROBABLE FAULT: 
1. IF MODULE 


2. CS MODULE 


105 RESET ATA BY GO TEST 


PURPOSE : 


- ose VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE ERROR 


PROCEDURE : 


om ee — 


SEQ 0057 
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THE PROGRAM SETS MAINTENANCE UNIT READY WHICH SHOULD CAUSE 
AN ATTENTION. THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA 
SHOULD BE ZERO. 
PROBABLE FAULT: 


1. IF MODULE 


TEST 104 UNIT READY ATA TEST 
PURPOSE : 


‘ TO VERIFY THAT ONE-ZERO AND ZERO-ONE TRANSITIONS OF UNIT 
READY SET ATTENTION. 


PROCEDURE : 


THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH TRANSITIONS OF 
UNIT READY AND VERIFIES TKAT ATA SETS WITH EACH TRANSITION. 


PROBABLE FAULT: 
1. IF MODULE 


TEST 105 ERROR ATA TEST 
PURPOSE : 


TO VERIFY THAT ATTENTION SETS WHEN COMPOSITE ERROR OCCURS 
WHILE GO IS OFF. 


, PROCEDURE : 


THE PROGRAM CLEARS THE DEVICE AND SETS AN ERROR, THEN 
VERIFIES ATA IS ON. 


PROBABLE FAULT: 
1. IF MODULE 


TEST 106 REGISTER TRANSFER ATA TEST 
PURPOSE : 


SEQ 0038 
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SEQ 0039 
2053 TO VERIFY THAT ATTENTION SETS WHEN ANY REGISTER, EXCEPT FOR 
303% RMAS AND RMCS, IS WRITTEN WHILE COMP ERROR IS SET. 
sos? PROCEDURE : 
2058 THE PROGRAM FORCES AN ERROR THEN RESETS ATTENTION FROM THE 
2059 ERROR. THE PROGRAM THEN WRITES RMAS AND RMCS AND VERIFIES THAT 
2060 NO ATTENTION OCCURS, AND WRITES RMDC AND VERIFIES THAT ATTENTION 
soe} DOES OCCUR. 
2063 | PROBABLE FAULT: 
2065 1. IF MODULE 
2067 
2069 
2070 
2071 TEST 107 P SET ATA TEST 
2072 =~ 
$857 | PURPOSE : 
2075 TO VERIFY THAT ATA IS SET AT THE COMPLETETION OF AN OFFSET AND 
g076 RETURN TO CENTER LINE COMMAND. 
2078 PROCEDURE : he 
2080 THE PROGRAM EXECUTES THE COMMANDS USING THE MAINTANCE DEBUG 
a CLOCK AND EXPECTS ATA TO BE SET ON COMPLETETION. 
08 7 PROBABLE FAULT: 
$08 | 1. IF MODULE 
208 - 
2089 
2090 
2091 TEST 110 SET WLE TEST 
$078 
— 209 PURPOSE : 
2095 TO VERIFY THAT ‘WLE'' IS SET OR RESET WHEN IT SHOULD BE. 
aed PROCEDURE : | 
2099 THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING. THE 


MAINTANCE DEBUG CLOCK AND EXPECTS WLE SET OR RESET. 


EXECUTE WRITE DATA COMMAND WITH MAINTANCE WRITE PRCTECT SET, 
SHOULD EXPECT WLE TO BE SET. 


EXECUTE WRITE DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT 
SET, SHOULD EXPECT WLE TO BE RESET. 


EXECUTE READ DATA COMMAND WITH MAINTANCE WRITE PROTECT SET, 
SHOULD EXPECT WLE TO BE RESET. 


ae ee a es es 
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EXECUTE READ IN PRESET COMMAND WITH MAINTANCE WRITE PROTECT 
SET. SHOULD EXPECT WLE TO BE RESET. 


PROBABLE FAULT: 


1. CS MODULE 
2. IF MODULE 
111 EXCEPTION TEST 


PURPOSE : 


TO VERIFY THAT ‘'REX'’ OF RMMR1 IS RESET AFTER THE CONTROLLER IS 
INTIALIAL IZED AND SET WHEN AN ERROR IS DETECTED DURING A DATA TRANSFER 


PROCEDURE : 

THE PROGRAM WILL INITIALIZE THE MASSBUS ('REX'' SHOULD BE CLEAR) 
AND THEN EXECUTE THE WRITE DATA COMMAND USING THE MAINTANCE DEBUG CLOCK. 
WHILE THE COMMAND IS BEING EXECUTED (RUN AND GO SET), THE PROGRAM CAUSES 
“ ERROR, BY TRYING TO WRITE THE RMER1 REGISTER (’REX'’ SHOULD BE 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


112 RECALIBRATE TEST 
PURPOSE : 


_ TO VERIFY THAT ‘OPI"' SETS, IF UNIT READY DROPS DURING RECALIBRATE 
COMMAND EXECUTION. 


TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS DURING COMMAND 
EXECUTION. 


TO VERIFY THAT ‘‘OPI*’ SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 
TO VERIFY THAT ‘‘ATA’’ SETS, IF THE DRIVE COMPLETES THE RECALIBRATE 


TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS AFTER EXECUTION 
DURING A WAIT LOOP. 


SEQ 0040 
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SEQ 0041 


TO VERIFY THE TAG BUS DURING A RECALIBRATE COMMAND. 
PROCEDURE : 


THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 


. EXECUTE RECALIBRATE COMMAND, DROP UNIT READY AND VERIFY THAT ‘OPI'’ 


EXECUTE RECALIBRATE COMMAND, SET DRIVE FAULT ('MDF*’ IN RMMR1) TO 
CAUSE COMMAND ABORT AND VERIFY THAT ‘'GO'’ IS RESET. 


EXECUTE RECALIBRATE COMMAND, VERIFY THAT ‘OPI’ IS SET WHEN ON 
CYLINDER LATCH IS NOT CLEARED. 


EXECUTE RECALIBRATE COMMAND, DROP ON CYLINDER TO RESET LATCH, 
THEN SET ON CYLINDER AGAIN AND VERIFY THAT ‘'ATA’' IS SET. 


EXECUTE RECALIBRATE COMMAND, DROP ON CYLINDER 10 RESET LATCH, 
LEAVE ON CYLINDER RESET AND VERIFY THAT ‘'GO’’ iS STILL SET. 


EXECUTE RECALIBRATE COMMAND. AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PRE~DETERMINED TABLE. 


PROBABLE FAULT: 
1. CS MODULE 


113 SEEK TEST 
PURPOSE : 


TO VERIFY THAT ‘OPI'' SETS, IF UNIT READY DROPS DURING SEEK COMMAND 
EXECUTION. 


TO VERIFY THAT THE SEEK COMMAND ABORTS DURING COMMAND EXECUTION. 
~ to VERIFY THAT "‘OPI'' SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 

‘90 VERIFY THAT “‘ATA’’ SETS, IF THE DRIVE COMPLETES THE SEEK COMMAND. 

TO VERIFY THAT THE SEEK COMMAND ABORTS AFTER EXECUTION DURING A WAIT 


TO VERIFY THE TAG BUS DURING A SEEK COMMAND. 


PROCEDURE : 


THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 


ee ee 
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EXECUTE SEEK COMMAND, DROP UNIT READY AND VERIFY THAT ‘OPI’ JS SET. 


EXECUTE SEEK COMMAND, SET DRIVE FAULT ('MDF*’ IN RMMR1) TO CAUSE 
COMMAND ABORT AND VERIFY THAT ‘‘GO"’ IS RESET. 


EXECUTE SEEK COMMAND, VERIFY THAT “OPI'’ IS SET WHEN ON CYLINDER 
LATCH IS NOT CLEARED. 


EXECUTE SEEK COMMAND, DROP ON CYLINDER LM RESET LATCH, THEN SET 
ON CYLINDER ASAIN AND VERIFY THAT “‘ATA’' IS SET 


EXECUTE SEEK COMMAND, DROP ON CYLINDER TO - map LATCH, LEAVE ON 
CYLINDER RESET AND VERIFY THAT ‘'GO"' IS STILL SET 


EXECUTE SEEK COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PRE-DETERMINED TABLE. 


PROBABLE FAULT: 
1. CS MODULE 


TEST 114 SEARCH TEST 


TO VERIFY THAT ‘‘OPI'’ SETS, IF UNIT READY DROPS DURING SEARCH COMMAND 
EXECUTION. 


TO VERIFY THAT THE SEARCH COMMAND ABORTS DURING COMMAND EXECUTION. 
TO VERIFY THAT “‘OPI*’ SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 
TO VERIFY THAT ‘‘ATA’’ SETS, IF THE DRIVE COMPLETES THE SEARCH COMMAND. 


TO VERIFY THAT THE SEARCH COMMAND ABORTS AFTER EXECUTION DURING A 
WAIT LOOP. 


TO VERIFY THAT SEARCH COMMAND ABORTS DURING SECTOR COMPARE LOOP 
TO VERIFY THE TAG BUS DURING A SEARCH COMMAND. 
PROCEDURE : 


THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 


EXECUTE SEARCH COMMAND, DROP UNIT READY AND VERIFY THAT ‘OPI'’ IS SET. 


EXECUTE SEARCH COMMAND, SET DRIVE FAULT ('MDF*' IN RMMR1) TO CAUSE 
OMMAND ABORT AND VERIFY THAT ‘'GO'’ IS RESET. 


EXECUTE SEARCH COMMAND, VERIFY THAT ‘OPI*’ IS SET WHEN ON CYLINDER 
LATCH IS NOT CLEARED. 


EXECUTE SEARCH COMMAND, DROP ON CYLINDER TO RESET LATCH, THEN SET 








mm rn ee ee a —< . —_ 


| CZRMPBO 2M05/3/2 SSKLS TST 1 


Www 


rhorurory Ronononoforononofunonononononononononoononononafononono) 


he 


Wa 
oS 
co 


ANYVIN NNW 


Morons hononon hn eS Ss SO Oe a 
OO NOAUS Wr" O OWN UFWAS-—O 


© 
wm 


© 


FARAGS 


w 


= 


Ss 


3 


™N 


MACRO v04.00 


TEST 


TEST 





E 4 
4-APR-81 01:24:25 PAGE 3-40 


ON CYLINDER AGAIN AND VERIFY THAT ‘ATA’ IS SET. 


EXECUTE SEARCH COMMAND, DROP ON CYLINDER TO RESE? LATCH, LEAVE ON 
CYLINDER RESET AND VERIFY THAT ‘‘GO'' IS STILL SET. 


EXECUTE SEARCH COMMAND, WHILE IN SECTOR COMPARE LOOP, SET DRIVE 
—" (“MDF‘* IN RMMR1) TO CAUSE COMMAND ABORT AND VERIFY THAT ‘‘ATA'' IS 


EXECUTE SEARCH COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PRE-DETERMINED TABLE. 


PROBABLE FAULT: 
1. CS MODULE 


115 SEARCH TIMEOUT TEST 
PURPOSE : 


TO VERIFY THAT “‘OPI"’ SETS, IF *MSEN’’ (SEARCH TIMEOUT ENABLE) IS 
DROPPED DURING SEARCH COMMAND EXECUTION. 


PROCEDURE : 


EXECUTE SEARCH COMMAND, VERIFY THAT ‘OPI’ IS SET WHEN ‘MSEN’’ IS 
CLEARED. 


PROBABLE FAULT: 
1. CS MODULE 


116 - 120 DATA COMMAND TESTS (1, 2, 3) 
PURPOSE : 

TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS. 
PROCEDURE : 

THIS TEST, LIKE RECALIBRATE, SEEK, AND SEARCH TESTS, USES 
THE MAINTENANCE REGISTER TO SIMULATE DRIVE CONDITIONS AND FORCE 
THE COMMAND SEQUENCER THROUGH EACH BRANCH PATH. ADDITIONAL ITEMS 
WHICH ARE TESTED INCLUDE OFFSET PLUS AND MINUS ON THE TAG BUS AND 
“ENABLE SEARCH’, BIT 11 OF RMMR1. 
PROBABLE FAULT: 


1. CS MODULE 


rr i ee oe ene -- ee oe - 


SEQ 004% 


— CZRMPBO RMOS/3/2 DSKLS TST 1 


Re 


REESE 
WN =O 
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SEQ 0045 
y z*LAST REVISION 04-APR-81 
6 
678 -TITLE CZRMPBO RMO5/3/2 DSKLS TST 1 


>*COPYRIGHT (C) 1981 
:*DIGITAL EQUIPMENT CORPORATION 
s *COLORADO SPGS.. CO. 80919 


: #PROGRAM BY MIKE LEAVITT 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR-81 


679 -SBTTL OPERATIONAL SWITCH SETTINGS 
:* SWITCH USE 
_—e £+ij(j+_ ei ee seman mmm = = = ea, ey es as ns a, es en es as as a es “es es es 
se 15 HALT ON ERROR 
;* 14 LOOP ON TEST 
5° 13 INHIBIT ERROR TYPEOUTS 
3* 11 INHIBIT ITERATIONS 
- ;* 10 BELL ON ERROR 
:* 9 LOOP ON ERROR 
;* 8 LOOP ON TEST IN SWR<7:0> 
680 ;* 7 ™N128 
;* 6 TN64 
i* 5 ™N32 
3* 4 ™N16 
;* 3 ™N8 
3* 2 ™NS 
:* 1 ™N2 
;* 0 ™N1 
68) 
682 -SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *x«* 
001100 STACK = 1100 
104000 ERROR = EMT ;;BASIC DEFINITION OF ERROR CALL 
000004 SCOPE = JOT ; BASIC DEFINITION OF SCOPE CALL 
pale sae DEFINITIONS 
000011 = 77 3;;CODE FOR HORIZONTAL TAS 
000012 3 = 12 3:CODE FOR LINE FEED 
15 CR = 15 :: CODE FOR CARRIAGE RETURN 
200 CRLF = 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS = 177776 ;zPROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT = 177774 ;s STACK LIMIT REGISTER 
177772 PIRQ s 177772 :PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR = 177570 : : HARDWARE SWITCH REGISTER 
177570 DDISP = 177570 > ;HARDWARE DISPLAY REGISTER 
> *GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO = £0 3; GENERAL REGISTER 
000001 R1 = %1 :; GENERAL REGISTER 
000002 R2 = Ze 3: GENERAL REGISTER 
000003 R3 = 35 : RAL REGISTER 
000004 RZ = 3 :GENERAL REGISTER 


7RMPBO 8MOS/3/2 DSKLS TST 7 


oH ic DEFINITIONS 


———— 


—_—— 
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H & 
MACRO VO4.00 4-APR-81 01:24:25 PAGE 4-1 


z 
N 
hou 


7 *PRIORIT 


BRE 


e 
Ye) 
nnnnnunnnnnhnntnnnnws 


<5 7: GENERAL REGISTER 
26 7: GENERAL REGISTER 
17 RAL REGISTER 
26 3: STACK POINTER 

%7 : 
Y LEVEL DEFINITIONS 

0 PRIORITY LEVEL O 
40 : PRIORITY LEVEL 1 
100 : PRIORITY LEVEL 2 
140 sPRIORITY LEVEL 3 
PRIORITY LEVEL 4 

240 PRIORITY LEVEL 5 
300 :zPRIORITY LEVEL 6 
340 >:PRIORITY LEVEL 7 


yy > al SWITCH DEFINITIONS 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BI 100000 


@ 
—e 
— 
~— 
3 Ro 
ee ee 


te a re eee 


_ — ee —-- - 


CZ7RMPBO RMOS/3/2 DSKLS TST 1 


BASIC DEFINITIONS 


000070 
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a1T93 = 10 
BITO2 = 4 
BITO1 = 2 

1700 = 7 
BITI=BIT 
8178-81708 
BI1T7=B11T97 
B1T6=B1IT06 
B1T5=B1TOS 
B1IT4=BIT04 
B1T3=BIT03 
BIT2=BITO2 
B1T1=BIT01 
BI TO=BITOO 

> *BASIC ‘‘CPU"’ TRAP VECTOR bg oe 
ERRVEC = 4 TIME OUT AND OTHER ERRORS 
RESVEC = 10 : 7RESERVED AND ILLEGAL INSTRUCT IONS 
TBITVEC = 14 sss OT 
TRIVEC = 14 : > TRACE TRAP 
BPTVEC = 14 ; ;BREAKPOINT TRAP (BPT) 

IOTVEC = 20 os NPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC = 24 sPOWER FAIL 
EMTVEC = 30 ; ;EMULATOR TRAP (EMT) **ERROR** 
T C= 3% TRAP 
TKVEC = 60 >: TTY KEYBOARD VECTOR 
TPVEC = 64 >: TTY PRINTER VECTOR 
PIRQVEC = 240 3:PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RM REGISTER BIT DEFINITIONS 
;*RMCS1 CONTROL STATUS REGISTER 


DVA = BIT11 sDEVICE AVAILABLE-READ ONLY 
F4 = BITOS sFUNCTION CODE 

F3 = BITO4 7FUNCTION CODE 

F2 = BITO3 sFUNCTION CODE 

FI = BITO2 sFUNCTION CODE 

FO = BITOT sFUNCTION CODE 

GO = BITOO 360 BIT 

FNCMSK = 000077 7FUNCTION CODE MASK 
sFUNCTION CODES (BITS 01-05 OF RMCS1) 

NOP = 000000 ;NOP COMMAND 

ILFO2 = 000002 7; ILLEGAL COMMAND 

SEEK = 000004 - SEEK COMMAND 

RECAL = 000006 = RE CALIBRATE COMMAND 
DRVCLR = 000010 :DRIVE CLEAR COMMAND 
RLEASE = 000012 “RELEASE COMMAND 

OFFSET = Q00014 :OF FSET COMMAND 

RTC = 000016 :RETURN TO CENTERLINE COMMAND 
RIP = 000020 sREAD IN PRESET COMMAND 
PAKACK = 000022 s;PACK ACKNOWLEDGE COMMAND 
PACACK = PAKACK 

ILF24 = 000024 3; ILLEGAL COMMAND 

ILF26 = 000026 ; ILLEGAL COMMAND 

SEARCH = 000030 > SEARCH COMMAND 


a ee oe ee ee ee 


SEQ O04 / 


_ CZRMPBO RMOS/3/2 DSKLS TST 1 
RM REGISTER BIT DEFINITIONS 


714 


010000 
004000 
002000 
001000 
000400 


3; *RMDA 


; TRACK & SECTOR MASKS 
TADMSK 177400 


SADMSK 





; TRACK ADDRESS DEFINITIONS 
6 BIT12 
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= 000030 s ILLEGAL COMMAND 

= 000032 > ILLEGAL COMMAND 

= 000034 7 ILLEGAL COMMAND 

= 0000 7 ILLEGAL COMMAND 

= 000040 : ILLEGAL COMMAND 

= 000042 : ILLEGAL COMMAND 

= 000044 ; ILLEGAL COMMAND 

= 000046 : ILLEGAL COMMAND 

= 000050 sWRITE CHECK DATA COMMAND 

= 000052 sWRITE CHECK HEADER AND DATA 
= 000054 : ILLEGAL COMMAND 

= 000056 ; ILLEGAL COMMAND 

= 000060 ;WRITE DATA COMMAND 

= 000062 :WRITE HEADER AND DATA COMMAND 
= 000064 ; ILLEGAL COMMAND 

= 000066 : ILLEGAL COMMAND 

= 000070 sREAD DATA COMMAND 

= 000072 sREAD HEADER AND DATA COMMAND 
= 000074 ; ILLEGAL COMMAND 

= 000076 ILLEGAL COMMAND 


DISK ADDRESS REGISTER 


; TRACK ADDRESS 16. 


= BIT11 ; TRACK ADDRESS 8 

= BIT10 TRACK ADDRESS 4 

= BITO9 : TRACK ADDRESS 2 

= BITO8 ; TRACK ADDRESS 1 
ADDRESS DEFINITIONS 

= BITO4 ;SECTOR ADDRESS 16. 
= BITO3 sSECTOR ADDRESS 8. 
= BITO2 sSECTOR ADDRESS 4 
= BITO1 ;SECTOR ADDRESS 2 
= BITOO :SECTOR ADDRESS 1 


: TRACK ADDRESS MASK 
:SECTOR ADDRESS MASK 


DRIVE STATUS REGISTER 


= BIT15 sATTENTION ACTIVE 

= BIT14 ; COMPOSITE ERROR 

= BIT13 :POSITIONING IN PROGRESS 
= BITI2 :MEDIUM ON LINE 

= BIT11 ;WRITE LOCK 

= BIT10 ;LAST BLOCK TRANSFERRED 
= BITO9 ; PROGRAMMABLE 

= BITOS8 sDRIVE PRESENT 

= BITO? DRIVE ad! 

= BITO6 : VOLUME VALID 

= BITOO OFFSET MODE ACTIVE 


ERROR REGISTER #1 


eee - oe ee ee mee -_—_— 


SEQ 0046 


c® 





| CZRMPBO RMOS/3/2 
RM REGISTER BIT DEFINITIONS 

764 100000 
765 040000 
766 20000 
767 010000 
768 004000 
769 002000 
770 001000 
771 000400 
ae 000200 
77 000100 
774 000040 
775 000020 
776 000010 
777 000004 
778 000002 
779 000001 
780 

781 115760 
782 

783 

784 

785 

786 

787 000377 
788 

789 

790 

791 002000 
792 001000 
793 000400 
794 000200 
795 000100 
796 

797 003700 
798 

799 

800 

801 

802 100000 
803 040000 
804 020000 
805 010000 
806 000 
807 002000 
808 001000 
809 000400 
810 000200 
811 000100 
812 000040 
813 000010 
814 000004 
815 000002 
816 000001 
817 

818 

819 100000 
820 040000 


DSKLS TST 1 
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DCK = BIT15 ad :DATA_ CHECK ERROR 

UNS = BIT14 :DRIVE UNSAFE 

OP I = BIT13 sOPERATION INCOMPLETE 
DTE = BITI2 ;DRIVE TIMING ERROR 

WLE = BIT11 sWRITE LOCK ERROR 

[AE = BIT10 : INVALID ADDRESS ERROR 
AOE = BITOS ZADDRESS OVERFLOW ERROR 
HCRC = BITO8 s HEADER CRC ERROR 

HCE = BITO7 sHEADER COMPARE ERROR 
ECH = BIT06 SECC "HARD'’ ERROR 

WCF = BITO5 ;WRITE CLOCK FAILURE 
FER = BITO4 :FORMAT ERROR 

PAR = BITOS ;PARITY ERROR 

RMR = BITO2 SREGISTER MODIFICATION REFUSED 
ILR = BITO1 SILLEGAL REGISTER 

ILF = BITOO : ILLEGAL FUNCTION 
NDTMSK = DCK!DTE!WLE!AOE!HCRC!HCE!ECH!WCF!FER 


 NDIMSK"" IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 
:COMMANDS, I.£., HOUSEKEEPING AND POSITIONING COMMANDS 


:*RMAS ATTENTION SUMMARY REGISTER 


ATNMSK = 377 ;MASK FOR ATTENTION BITS 
>*RMLA LOOK AHEAD REGISTER 

SC4 = BIT10 ” sSECTOR COUNT = 16 

SC3 = BITO9 :SECTOR COUNT = 8 

SC2 = BITO8 ;SECTOR COUNT = 4 

SC1 = BITO7 sSECTOR COUNT = 2 

Sco = BITO6 ;SECTOR COUNT = 1 


:SECTOR COUNT MASK 
;*RMMR1 MAINTENANCE REGISTER 41 
sWRITE ONLY BITS 

BIT15 


DBCK = :DEBUG CLOCK 

DBEN = BIT14 >DEBUG CLOCK ENABLE 
DEBL = BIT13 :DIAGNOSTIC END OF BLOCK 
MSEN = BITI2 ° sSEARCH TIMEOUT ENABLE 
MCLK = BIT11 “MAINTENANCE CLOCK 
MRD = BIT10 :READ DATA 

MUR = BITO9 ;UNIT READY 

MOC = BITO8 :0N CYLINDER 

MSER = BITO? ; SEEK ERROR 

MDF = BITO6 sDRIVE FAULT 

MS = BITO5 :SECTOR PULSE 

MwP = BITO3 ;WRITE PROTECT 

MI = BITO2 ; INDEX PULSE 

MSC = BITOT :SECTOR COMPARE 

DMD = BITOO :DIAGNOSTIC MODE 

sREAD ONLY BITS 

Occ = BIT15 Be 

RG = BIT14 RUN AND GO 


er mm ee ae ee 


SEQ 004% 


gaparsrpenans 


Co 
~ 
— 


NIT 


020024 
024024 
010000 
004000 
002000 
000200 
161577 


001777 
176000 





LS TST 1 


L 4 
MACRO VO04.00 4-APR-81 01:24:25 PAGE 4-5 


EBL = BIT13 sEND OF BLOCK 

REX = BITI2 S EXCEPTION 

ESRC = B1T11 ;ENABLE SEARCH 

PLFS = BIT10 ;LOOKING FOR SYNC 

ECRC = BITO9 sENABLE CRC OUT 

PDA = BITO8 :DATA AREA 

PHA = BITO7 :HEADER AREA 

CONT = BIT06 ; CONTI 

WC = BITO5 sWORD CLOCK 

EECC = BITO4 sENABLE ECC OUT 

MwD = BITOS :WRITE DATA BIT 

LS = BITO2 LAST SECTOR 

LST = BITO1 ;LAST SECTOR AND TRACK 

DMD = BITOO :DIAGNOSTIC MODE 

MRIAAA = DMD!MUR! DBEN! MOC !MSEN 

:*RMDT DRIVE TYPE REGISTER 

NSA = BIT15 sNOT SECTOR ADDRESSED = 0 

TAP = BIT14 ; TAPE DRIVE = 0 

MOH = BIT13 :MOVING HEAD = 1 

DRQ = BIT11 sDRIVE REQUEST REQUIRED 
T = 020024 :SINGLE PORT DRIVE TYPE 

DULPRT = 024024 ;DUAL PORT DRIVE TYPE 

:*RMOF OFFSET REGISTER 

FMT16 = BITI2 :16 BIT WORD FORMAT 

EC] = BIT11 sECC INHIBIT 

HCI = BIT10 sHEADER COMPARE INHIBIT 

OF D = BITO?7 ;OFFSET FORWARD 

XNUOF = 161577 :UNSED BITS OF RMOF 

:*RMDC DESIRED CYLINDER ADDRESS REGISTER 

CYLMSK = 001777 sMASK FOR CYLINDER ADDRESS 

XNUDC = 176000 ;UNSED BITS OF RMDC 


: ®RMMR2 MAINTENANCE REGISTER #2 
;READ ONLY BITS | 
BIT 


= BIT15 ;PORT A REQUEST 
ROB = BIT14 :PORT B REQUEST 
TAG = BIT13 TAG CONTROL 
TST = BIT12 : COMMAND SEQUENCE TEST BIT 
CC = BIT11 :CONTROL OR CYLINDER TAG 
CH = BIT10 ;CONTROL OR HEAD TAG 
BBO9 = BITOY = TAG BUS 
BB08 = BIT08 :TAG BUS 
BBO7 = BIT07 : TAG BUS 
BB06 = BIT06 ; TAG BUS 
BBO5 = BITO5 : TAG BUS 
BB04 = BITO4 ;TAG BUS 
BB03 = BITO3 ;TAG BUS 
BBO2 = BITO2 :TAG BUS 
BB01 = BITO1 : TAG BUS 


mr ee ee 
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| RM REGISTER BIT DEFINITIONS SEQ 005" 
| - 000001 BB800 = BITOO TAG BUS 
| a7 :*RMER2 ERROR REGISTER 2 
| 
875 100000 BSE = BIT15 ;BAD SECTOR ERROR 
| 876 040000 Sk1 = BIT14 >SEEK INCOMPLETE 
877 020000 = B1T13 [OPERATOR PLUG ERROR 
| 878 010000 IvC = BIT12 : INVALID COMMAND ERROR 
879 004000 LSC = BIT11 | SLOSS OF SYSTEM CLOCK 
880 002000 LBC = BIT10 SLOSS OF BIT CLOCK 
881 000209 DvC = BITO7 :DEVICE CHECK 
88¢ 10 DPE = BITO3 :DATA PARITY ERROR 
883 001567 XNUER2 = 001567 [UNSED BITS OF RMER2 
889 .SBTTL PROGRAM MNEMONICS 
887 100000 MSE = BIT15 ;MANUFACTURING DETECTED SECTOR ERROR 
888 040000 USE = BITI4 [USER DETECTED SECTOR ERROR 
890 .SBTTL RM REGISTER INDEX VALUES 
892 000000 RMCS1 = 00 :CONTROL STATUS REGISTER #1 
893 000006 RMDA = =_:06 :DISK ADDRESS REGISTER 
000012 RMDS = 12 “DRIVE STATUS REGISTER 
895 000014 RMER1 = 14 i ERROR REGISTER #1 
000016 RMAS = 16 ATTENTION SUMMARY REGISTER 
897 000020 RMLA = ==_- 20 “LOOK AHEAD REGISTER 
898 000024 RMMR1 = 24 :MAINTENANCE REGISTER 
# 000026 RMDT = 26 :DRIVE TYPE REGISTER 
000030 RMSN = =_-30 :SERIAL NUMBER REGISTER 
901 000032 RMOF = 32 [OFFSET REGISTER 
902 000034 RMDC = 34 :DESIRED CYLINDER REGISTER 
903 000036 RMHR = 36 sHOLDING REGISTER 
000040 RMMR2 = 40 :MAINTENANCE REGISTER #2 ' 
905 000042 RMER2 = 42 SERROR REGISTER #2 
906 000044 RMECT = 44 :ECC POSITION REGISTER 
907 000046 2 = 46 ZECC PATTERN REGISTER 
910 000050 ILRGSO = 50 SILLEGAL REGISTER 50 
000052 ILRGS2 = 52 SILLEGAL REGISTER 52 
000054 ILRGS4 = 54 SILLEGAL REGISTER 54 
000056 ILRG56 = 56 SILLEGAL REGISTER 56 
000060 ILRG60 = 60 SILLEGAL REGISTER 60 
000062 ILRG62 = 62 SILLEGAL REGISTER 62 
000064 ILRG64 = 64 SILLEGAL REGISTER 64 
000066 RG66 = 66 SILLEGAL REGISTER 66 
000070 ILRG70 = 70 SILLEGAL REGISTER 70 
000072 ILRG72 = 72 ZILLEGAL REGISTER 72 
000074 ILRG74 = 74 ZILLEGAL REGISTER 74 
000076 ILRG76 = 76 SILLEGAL REGISTER 76 
000077 IDXMSK = 77 :MASK FOR REGISTER INDEX NUMBER 


.SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
>*RMCS1 CONTROL STATUS REGISTER #1 


ooonowuovovowo 
ee eed et ee oo dd 
ONO Ww — 
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| 
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RH CONTROLLER REGISTER BIT DEF INIT IONS 


919 
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> SPECIAL CONDITION-READ ONLY 
; TRANSFER ERROR 
;MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 
:PORT B SELECT 
SADDRESS EXTENSION 
Santen EXTENSION 
READY-READ ONLY 
; INTERRUPT ENABLE 


RH CONTROL STATUS REGISTER #2 


;DATA_LATE=READ ONLY 
sWRITE CHECK ERROR-READ ONLY 
;UNIBUS PARITY ERROR 
sNONEXISTANT DRIVE-READ ONLY 
sNONEXISTANT MEMORY-READ ONLY 


; PROGRAM ERROR-READ ONLY 
mAs TRANSFER 
MASSBUS DATA BUS od ERROR-READ ONLY 


; INPU 
: CONTROLLER CLEAR 
SPARITY TEST 
sUNIBUS ADDRESS INCREMENT INHIBIT 
sUNIT SELECT 
sUNIT SELECT 
[UNIT SELECT 


sUNIT SELECT MASK 


RH70 CONTROL STATUS REGISTER #3 


sADDRESS PARITY ERROR 
;DATA PARITY ERROR HIGH WORD 
:DATA PARITY ERROR LOW WORD 
sWRITE CHECK ERROR HIGH WORD 
:WRITE CHECK ERROR LOW WORD 
:DOUBLE WORD TRANSFER 

; INTERRUPT ENABLE i. 
; INVERTs PARITY CHECK 

S INVERT PARITY CHECK 

; INVERT PARITY CHECK 

s INVERT PARITY CHECK 


RH CONTROLLER REGISTER INDEX VALUES. 


v04 .00 
SC = B]T15 
TRE = BITI14 
MCPE = BIT13 
PSEL = BIT10 
A17 = BITO9 
A16 = BITO8 
RDY = BITO7 
IE = BITO6 
*RMCS2 
DLT = BIT15 
WCE = BIT14 
UPE = BIT13 
NED = BIT12 
NEM = BIT11 
PGE = BIT10 
MXF = BITO9 
MDPE = BITO8 
OR = BITO7 
IR = BITO6 
CLR = BITOS 
PAT = BITO4 
BAI = BITO3 
U2 = BITO2 
U1 = BITO1 
U0 = BITOO 
sUNIT SELECT MASK 
UNTMSK = 7 
7 *RMCS3 
APE = BIT15 
DPEHI = BIT14 
DPELO = BIT13 
WCEHI] = BITI2 
WCELO = BITT1 
DBL = BIT10 
IE = BITO6 
IPCK3 = BITO3 
IPCK2 = BITO2 
IPCK1 = BITO1 
IPCKO = BITOO 
- SBTTL 
RMCS1 = QO 
RMWC = 02 
RMBA = 04 
RMCS2 = 10 
= 22 
= 50 
RMCS3 = 52 
ABASE = 176700 





;CONTROL, STATUS REGISTER #1 
T REGISTER 


:WORD COUN 

:BUS ADDRESS REGISTER 
:CONTROL, STATUS REGISTER #2 
=DATA BUFFER 

:BUS ADDRESS EXTENSION 
:CONTROL, STATUS REGISTER #3 


;UNIBUS ADDRESS 


SEQ 005 


————EEe—EeEeEeEe——— ——— a Ll = 
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RH CONTROLLER REGISTER INDEX VALUES SEQ 005% 


| 
| 
| 976 120254 AVECT1 = 120254 SUNIBUS VECTOR ADDRESS AND PRIORITY 
! 


C7RMPBO 
TRAP CATCHER 


ano 


RMOS/3/2 DSKLS TST 1 


000046 
000052 


SSBese 
223388e8 


004652 
004642 


ce 
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-SBTTL TRAP CATCHER 


.-=0 ! 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT'’ 
> *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION 0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “WORD C >zSOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 >2SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
JMP @4START :2JUMP TO STARTING ADDRESS OF PROGRAM 
JMP @4START1 ; CHANGE RH/RM BUS ADDRESS 

-SBTTL ACT11 HOOKS 


STREETER EERE 


sHOOKS REQUIRED BY ACT11 


veC=. :SAVE PC 
SENDAD :31)SET LOC.46 TO ADDRESS OF $SENDAD IN 
"WORD - 0 ;:2)SET LOC. 352 TO ZERO 
 =$SVPC : RESTORE P 


.=1100 
[SBTTL APT PARAMETER BLOCK 


trite iii iii iri titi ii iitiiiiiiitititiiiiiiiiiicie ts. 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

RE RERREAE REAR EAERAERA AREER ERR AEE ERE REREAREERERE EERE 
:zSAVE CURRENT LOCATION 
-=24 ¢3SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;2FOR APT START UP 

-=44 ::POINT TO APT INDIRECT — PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOC 
7:RESET LOCATION COUNTER 

{RARER ERE RARE EERE REAR REE ERR ERE EEE EERE Re 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT~PDP11 DIAGNOSTIC 
> INTERFACE SPEC. 


SAPTHD: 

SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL ;;ADDRESS OF APT i ee (BITS 0-15) 

STSTM: -.WORD 20. 7:RUN TIM OF LONGEST TEST 

SPASTM: .WORD 20. ss TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 20. Le ITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
a -WORD SETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS) 


a 


. SEOP 


SEQ 0054 


| 9 Std we DSKLS TST 7 
POMMON T 
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| 0 .SBTTL COMMON TAGS 
FSSA AAA AAAAAAAA EAA AAAAAEAAAARAAARARARAEEREAARAEERERKAKRE EEE Ee 
| * STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
-*USED IN THE PROGRAM 
001114 .=TAGADR 
001114 SCMTAG ::START OF COMMON TAGS 
001114 000000 .WORD 0 
001116 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
001117 000 SER‘LG: .BYTE 0 :: CONTAINS ERROR FLAG 
001120 000000 S$ICNT: .WORD 0 > CONTAINS SUBTEST ITERATION COUNT 
001122 000000 $LPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
001124 000000 SLPERR: .WORD 0 : CONTAINS SCOPE RETURN FOR ERRORS 
001126 000000 SERTTL: .WORD 0 7: CONTAINS TOTAL ERRORS DETECTED 
001130 000 SITEMB: .BYTE 0 :: CONTAINS ITEM CONTROL BYTE 
001131 001 RMAX: .BYTE 1 CONTAINS MAX. ERRORS PER TEST 
001132 000000 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR INSTRUCTION 
001134 000000 $GDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘GOOD’ DATA 
601136 000000 $BDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘BAD' DATA 
001140 000000 $GDDAT: .WORD 0 :: CONTAINS "GOOD' DATA 
001142 000000 SRDDAT: .WORD 0 33 TAINS ° * DATA 
001144 000000 -.WORD 0 : :RESERVED--NOT TO BE USED 
001146 000000 .WORD 0 
001150 000 $AUTOB: .BYTE 0 : :AUTOMATIC MODE INDICATOR 
001151 000 $INTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 
001152 -.WORD 0 
001154 177570 WR: .WORD DSWR ADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: .WORD DDISP : :ADDRESS OF DISPLAY REGISTER 
001160 177560 TKS: . 177560 :: TTY KBD STATUS 
001162 177562 $TKB: 177562 -:TTY KBD BUFFER 
001164 177564 $TPS: 177564 -:TTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 :; TTY PRINTER BUFFER REG. ADDRESS 
001170 000 L: .BYTE 0O :CONTAINS NULL CHARACTER FOR FILLS 
001171 002 SFILLS: .BYTE 2 =:CONTAINS # OF FILLER CHARACTERS REQUIRED 
001172 012 SFILLC: .BYTE 12 2 INSERT FILL CHARS. AFTER A ‘LINE F 
001173 000 STPFLG: .BYTE 0 -‘"TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
001174 000000 $TMPO: .WORD 0 = USER DEFINED 
001176 000000 $TMP1: .WORD 0 ::USER DEFINED 
001200 000000 STMP2: .WORD 0 : ;USER DEFINED 
001202 000000 STMP3: .WORD 0 ;:USER DEFINED 
001204 000000 $TMP4: .WORD 0 : 2 USER DEF INED 
001206 000000 STIMES: 0 NUMBER OF ITERATIONS 
001210 000000 SESCAPE :0 <ESCAPE ON ERROR ADDRESS 
001212 207 377 377 $BELL: .ASCIZ <207><377><377> $3 CODE FOR BELL 
001216 077 $QUES: .ASCII /?/ : QUESTION MARK 
001217 015 $CRLF: ASCII <15> =: CARRIAGE RETURN 
001220 012 000 SLF: eASCIZ <12> :;LINE FEED 
J TERE EEEKEEEEKKEEEEEREEKKEKEEEEEEKEEKKEEKKEEKEKEEKEER SE 
.SBTTL APT MAILBOX-E TABLE 
g SARAAARARAAARARAAARAARERAAAAAERERERAEAEERARAREERARERERERRENEREE 
* EVEN 
001222 $MAIL: :APT MAILBOX 
001222 000000 SMSGTY: .WORD AMSGTY : SME SSAGE TYPE CODE 
001224 000000 $FATAL: .WORD AFATAL sFATAL ERROR NUMBER 
001226 000000 $TESTN: .WORD ATESTN :;: TEST NUMBER 


&e > 
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APT MAILBOX-E TABLE SEQ 0056 
001230 000000 SPASS .WORD APASS 3:PASS COUNT 
pod tt 000000 SDEVCT: .WORD ADEVCT > DEVICE COUNT 
001 000000 SUNIT: .WORD AUNIT 3:1/0 UNIT NUMBER 
001236 000000 SMSGAD: .WORD AMSGAD ; ;MESSAGE ADDRESS 
001240 000000 SMSGLG: .WORD AMSGLG ::;: SAGE LENGTH 
001242 SETABLE 33 ENVIRONMENT TABLE 
001242 000 SENV -BYTE AENV 7 ENVIRONMENT BYT 
001243 000 SENVM: BYTE AENVM ENVIRONMENT MODE BITS 
001244 000000 SSWREG: .WORD ASWREG > APT SWITCH REGISTER 
001246 000000 SUSWR: .WORD AUSWR : sUSER SWITCHES 
001250 000000 SCPUOP: .WORD ACPUOP CPU TYPE,OPTIONS 
3* BITS ae = =CPU TYPE 
:* 11/04=01,11/05=02, 11/20=03, 11/40=04,11/45=05 
:* 11/70= "PDQ=07, Q=10 
s* BIT 10=REAL TIME CLOCK 
3@ BIT 9=FLOATING POINT _ 
hal BIT 8=MEMORY MANAGEMENT 
001252 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001253 000 SMTYP1: .BYTE AMTYP1 ;:; . TYPE,BLKA1 
5? MEM.TYPE BYTE -- (HIGH BYTE) 
3* 900 NSEC CORE=001 
:* 300 NSEC BIPOLAR=002 
:* 00 NSEC MOS= 
001254 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
hes MEM.LAST ADDR. =3 BYTES. THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
001256 000 SMAMS2: .BYTE AMAMS2 ;:;HIGH ADDRESS,M.S. BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 ;::MEM.TYPE,BLKA&2 
001260 000000 SMADR2: .WORD AMADR2 i, aye ADDRESS ,BLK#2 
001262 000 SMAMS3: .BYTE AMAMS 3 HIGH ADDRESS.M.S.BYTE 
001263 000 SMTYP3: .BYTE AMTYP3 ::MEM. TYPE .BLK&S 
001264 000000 SMADR3: .WORD AMADR3 7MEM.LAST ADDRESS, BLKA&3 
001266 000 SMAMS4: .BYTE AMAMSS HIGH ADDRESS .M.S.BYTE 
001267 000 SMTYP4: .BYTE AMTYP4 BAG BLKA4 
001270 000000 SMADR4: .WORD AMADR4G M.LAST ADDRESS,BLK&4 
001272 120254 SVECT1: .WORD AVECT1 : : INTERRUPT VECTORA1 ,BUS PRIORITYA1 
001274 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR42BUS PRIORITYA2 
001276 176700 SBASE: .WORD ABASE ::BASE ADDRESS OF EQUIPMENT UNDER TEST 
001 000000 SDEVM: .WORD ADEVM =;::;:DEVICE MAP 
001302 000000 $CDw1: .WORD ACDW1 ; CONTROLLER DESCRIPTION WORDA1 
001304 000000 $CDW2: .WORD ACDW2 : CONTROLLER DESCRIPTION WORDA2 
001306 000000 $DDWO: .WORD ADDWO :;:DEVICE DESCRIPTOR WORD#O 
001310 000000 SDDWi: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORD#1 
001312 000000 SDDW2: .WORD ADDW2 : :DEVICE DESCRIPTOR WORDA#2 
001314 000000 $DDW3: .WORD ADDW3 ;:;DEVICE DESCRIPTOR WORDS 
001316 000000 S$DDW4: .WORD ADDW4 : DEVICE DESCRIPTOR WORD&4 
001320 000000 SDDWS5: .WORD ADDW5 ; :DEVICE DESCRIPTOR WORDAS 
001322 000000 DW6: .WORD ADDW6 ;:DEVICE DESCRIPTOR WORDA6 
Ot Se 000000 oa - WORD ADDW7 : ;DEVICE DESCRIPTOR WORD#7 


CZ7RMPBO RMOS/3/2 DSKLS TST 1 
USER DEFINED TAGS 


_. 
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-SBTTL USER DEFINED TAGS 


AUTSIZ: .WORD 0Q > ALLOW a hy DRIVE SIZING = 0, USE MANUALLY INPUT DRIVES = 1 
CHGADR: .WORD 0 > CHANGE RH/RM BUS ADDRESS = -1, NO CHANGE = 0 
XXDP : -WORD 0 :THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 

[THE PROGRAM WAS LOADED. THE 4IGH BYTE CONTAINS THE 

> *XXDP* DEVICE CODE FOR THE RMOS/3/2. 
LSTRK: .BYTE 0 :LO BYT 
-BYTE 0 HI BYTE, ~ CONTAINS oy TRACK rs 3 OF UNIT 

[UNDER TEST. RMO2/3 = 4., RMOS = 18. 


:THE REGISTER INPUT BUFFER IS USED FOR 
;STORING DRIVE STATUS 


2 
SES 


WANA 
Wun 
aLMNOe 


eesesssessesesssssss 
SEES 


te SS SWAN 
KEVSARNS 


oS 
o 
— 
© 
: 


eee es os os = 
L 


34 
1436 000000 





GE TBUF : 
sREGISTER INPUT BUFFER 


RMCS1I1: .WORD QO :CONTROL, STATUS REGISTER 41 
RMWCI: .WORD 0 ;WORD COUNT REGISTER 
RMBAI: .WORD 0 :BUS ADDRESS REGISTER 
RMDAI: .WORD 0 :DISK ADDRESS REGISTER 
RMCS2I: .WORD 0 :CONTROL, STATUS REGISTER #2 
RMDSI: .WORD 0 :DRIVE STATUS REGISTER 
RMER1I: .WORD OQ sERROR REGISTER #1 
RMASI: .WORD OQ ATTENTION SUMMARY REGISTER 
RMLAI: .WORD 0 LOOK AHEAD REGISTER 
RMDBI: .WORD 0 :DATA BUFFER 
RMMRII: .WORD 0 :MAINTENANCE REGISTER #1 
RMDTI: .WORD 0 :DRIVE TYPE REGISTER 
RMSNI: .WORD 0 > SERIAL NUMBER REGISTER 
RMOFI: .WORD 0 “OFFSET REGISTER 
RMDCI: .WORD 0 sDESIRED CYLINDER REGISTER 
RMHRI: .WORD QO sHOLDING REGISTER 
RMMR2I: .WORD 9 :MAINTENANCE REGISTER #2 
RMER2I: .WORD 0 sERROR REGISTER #2 
RMEC1I: .WORD 0 :ECC POSITION REGISTER 
RMEC2I: .WORD 0 >ECC PATTERN REGISTER 

I: .WORD 0 ;BUS ADDRESS EXTENSION REGISTER 
RMCS3I: .WORD 0 ;CONTROL, STATUS REGISTER #3 


;THE REGISTER OUTPUT BUFFER IS USED FOR 
;ASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 
sREGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 ;CONTRCL, STATUS REGISTER #1 
RMWCO: .WORD 0 :WORD COUNT REGISTER 
RMBAO: .WORD 0 :BUS ADDRESS REGISTER 

AQ: .WORD 0 ;DISK ADDRESS REGISTER 
RMCS20: .WORD 0 ;CONTROL, STATUS REGISTER 4&2 
RMDSO: .WORD 0 :DRIVE STATUS REGISTER 
RMER10: .WORD 0 sERROR REGISTER #1 
RMASO: .WORD 0 ; ATTENTION SUMMARY REGISTER 
RMLAO: .WORD 0 ;LOOK AHEAD REGISTER 
RMDBO: .WORD 90 :DATA BUFFER 
RMMR10: .WwORD 0 :MAINTENANCE REGISTER #1 


a ee a ee ee 


SEQ 0057 


ES LS SSS 
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USER DEFINED TAGS SEG GUS= 
001440 000000 RMDTO: .WORD 0 sDRIVE TYPE REGISTER 
001442 000000 RMSNO: .WORD O 7SERIAL NUMBER REGISTER 
001444 900000 RMOFO: .WORD 0 > OF FSET REGISTER 
001446 000000 RMDCO: .WORD 0O ;DESIRED CYLINDER REGISTER 
001450 000000 : .WORD O s;HOLDING REGISTER 
601452 000000 RMMR20: .WORD 0O = MAINTENANCE REGISTER #2 
000000 RMER2O: .WORD 0 sERROR REGISTER #2 
001456 000000 RMEC10: .WORD 0 sECC POSITION REGISTER 
000000 RMEC20: .WORD 0O sECC PATTERN REGISTER 
001462 (C00000 RMBAEO: .WORD 0 > BUS ADDRESS EXTENSION REGISTER 
64 000000 RMCS30: .WORD 0 : CONTROL , STATUS REGISTER #3 
:EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
>THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
-FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
:END OF THE QUE. 
001466 000000 TSTQUE: .WORD 0 ;CONTAINS DEVICE POINTER 
601470 -BLKW 8 ;TEST QUE FOR DEVICES UNDER TEST 
001510 000000 P > ; TABLE TERMINATOR GOES HERE WHEN 
: ;ALL 8. DEVICES ARE UNDER TEST. 
001512 172540 $LPCSR: .WORD 172540 7KW11-P CONTROL + by REGISTER 
001514 172542 $LPCSB: .WORD 172542 *KW11-P COUNT SET BUFFER 
001516 000104 $LPVEC: .WORD 104 :KW11-P INTERRUPT VECTOR 
001520 000106 . WORD 106 
001522 177546 $LLCSR: .WORD 177546 :KW11-L CONTROL + STATUS REGISTER 
001524 0001 S$LLVEC: .WORD 100 :KW11-L INTERRUPT VECTOR 
001526 000102 . WORD 102 
001530 000000 $PSW . WORD ; STORAGE FOR PRIORITY 
001532 00000 TIME . WORD ;STORAGE FOR ELAPSED TIME 
001534 000000 WATCH . WORD >; STORAGE FOR REMAINING TIME 
001536 000000 CLOCK . WORD :ADDRESS OF START CLOCK SUB 
001540 000000 STOPCL: .WORD :ADDRESS OF STOP CLOCK SUB 


:PUT TAGS HERE 


eS eS 
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FRROR POINTER TARLE SEC 


-SBTTL ERROR POINTER TABLE 


> 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN — 

>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND |! 

; *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE ” PERTINENT. 
; *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC 


> *NCTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
7° EM 3zPOINTS TO THE ERROR MESSAGE 
te DH 7;z:POINTS TO THE DATA HEADER 
5° Di :;POINTS TO THE DATA 
Phas DF ;:POINTS TO THE DATA FORMAT 
001542 SERRTB: 
sERROR 1 CANNOT CLEAR NED STATUS 
001542 154 EMT1 
601544 072032 EHT1 
001546 072132 EDT1 
001550 072160 EFT1 
4 
4 zERROR 2 CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 
001552 064162 EMT2 
001554 072036 EHT2 
001556 072134 EDT2 
001560 072162 EFT2 
/ 
. sERROR 3 CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 
001562 064210 EMT3 
001564 000000 0 
001566 000000 0 
001570 000000 0 
10 
1) sERROR 4 CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 
001572 064230 EMT4 
001574 000000 0 
001576 000000 0 
001600 900000 0 
13 
‘3 sERROR 5 CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 
001602 252 EMTS | 
001004 072042 EHTS 
001606 072136 EDT5 
001610 072164 EFTS 
16 
1? ZERROR 6 CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


RMPBO 
OR 


TN sees 


18 
61 
61 
61 


001612 
001614 
001616 
901620 





RMOS / 3/ 
POINTER 


2 DSKLS TST 1 
ABLE 


064 360 
0 


: ERROR 


: ERROR 


; ERROR 


: ERROR 


; ERROR 


: ERROR 


: ERROR 


EMT 11 


2 
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CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
OF DEVICE REGISTERS 


REGISTER SELECT 1 APPEARS S-A-0 


REGISTER SELECT 1 APPEARS S-A-1 


REGISTER SELECT 2 APPEARS S-A-0 


REGISTER SELECT 2 APPEARS S~A-1 


REGISTER SELECT 4 APPEARS S-A-0 


REGISTER SELECT 4 APPEARS S-A-1 


ne te ee —-_— 


SE Q UU6U 


SE ERS —_— 


C 
ER 


ZRMPBO RMOS/3/ 


ROR POINTER Tf 


2 DSKLS TST 1 
ABLE 


064450 
000000 
000000 
000000 


072160 


064542 


072160 


> ERROR 


: ERROR 


: ERROR 


zs ERROR 


: ERROR 


zs ERROR 


7 ERROR 


EMT15 


EMT16 


EMT 17 
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¥ 


REGISTER SELECT 8 APPEARS S-A-0 


REGISTER SELECT 8 APPEARS S-A-1 


CANT WRITE ZEROS RMDA 


CANT WRITE ONES RMDA 


BIT INTERFERENCE IN WRITING/READING RMDA 


CANT WRITE ZEROS RMCS1 


CANT WRITE ONES RMCS1 


i re ee el 


SEG 006" 


zg 5 
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| €2Z 
ERROR POINTER TABL SEQ 0062 
| 001772 06467 EMT24 
001774 072032 FHT1 
001776 072132 EDT1 
072160 EFT 
62 
o ERROR 25 BIT INTERFERENCE IN WRITING/READING RMCS1 
002002 636 EMT25 | 
2004 072032 EHT1 
2006 072132 EDT1 
002010 072160 EFT1 
65 * 
66 ERROR 26 MBA CLR L IS STUCK ACTIVE 
002012 064652 EMT26 
002014 0 0 
201 0 
C02020 000000 0 
- ; 
69 :ERROR 27 CANNOT CLEAR RMER1-PAR.RMR,ILF.ILR 
002022 064704 EMT27 
002024 072032 EHT1 
002026 072132 EDT1 
002030 072160 EFT1 
71 
72 sERROR 30 CANNOT CLEAR RMER1-DCK, IAE,AOE.HCRC,HCE.ECH, WCF FER 
002032 06471 EMT 30 
002034 072032 EHT1 
36 072132 EDT1 
002040 072160 EFT1 
74 
2 sERROR 31 CANNOT CLEAR RMER1-OPI.DTE 
002042 064732 EMT 31 
002044 072032 EHT1 
2046 072132 EDT1 
002050 072160 EFT1 
77 
78 ERROR 32 CANNOT WRITE 0 IN RMER1-PAR,RMR,ILF.ILR 
002052 06474 EMT32 
002054 072032 EHT1 
002056 072132 EDT1 
002060 072160 EFT1 
80 
il ERROR 33 CANNOT WRITE 0 IN RMER1-DCK,IAE,AOE,HCRC,HCE,ECH, WCF ,FER 


002062 064762 EMT 33 





—_——— = — — _ 


L 3 
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_ ERROR POINTER TABLE 


SEQ 0062 
002064 072032 EHT1 
- 002066 072132 EDT1 
002070 072160 EFT1 
&3 
ae zERROR 34 CANNOT WRITE 0 IN RMER1-OPI.DTE 
002072 065 EMT 34 
002074 072032 EHT1 
002076 072132 EDT1 
002100 072160 EFT1 
86 
tA :ERROR 35 CANNOT WRITE 1 IN RMER1 
002102 016 EMT35 
104 072032 EHT1 
106 072132 EDT1 
002110 072160 EFT1 
89 
3 zERROR 36 CANNOT WRITE SHIFTING 1 IN RMER1 
002112 065032 EMT 36 
002114 072032 EHT1 
002116 072132 EDT1 
002120 072160 EFT1 
92 
a zERROR 37 CANNOT WRITE ZEROS IN RMDC 
002122 065046 EMT 37 
002124 072032 EHT1 
002126 072132 EDT1 
002130 0721 EFT1 
95 ) 
4 :ERROR 40 CANNOT WRITE ONES IN RMDC 
002132 065062 EMT4O 
002134 072032 EHT1 
36 6072132 EDT1 
002140 072160 EFT1 
98 
44 sERROR 41 BIT INTERFERENCE IN WRITING/READING RMDC 
002142 065102 EMT41 
002144 072032 EHT1 
002146 072132 EDT1 
002150 072160 EFT1 
101 ~~. 
0 zERROR 42 CANNOT WRITE 1'°S IN RMDC OR RMDA 
065116 EMT42 





es 


RMPBO RMOS/3/2 D 
ROR POINTER TABL 


002156 
002160 


000000 


072160 


065242 
072032 
072132 
072160 


065264 
072032 
072132 





= TST 1 


zs ERROR 


zs ERROR 


7 ERROR 


s ERROR 


; ERROR 


; ERROR 


zs ERROR 
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CANNOT CLEAR RMCS1-FUNCTION CODE 


UNUSED BITS OF RMER2 NOT ZERO 


CANNOT CLEAR RMER2-OPE,IVC,LSC 


CANNOT CLEAR RMER2=-LBC ,DPE 


CANNOT WRITE ZEROS RMER2-OPE,IVC.LSC 


CANNOT WRITE ZEROS RMER2-LBC DPE 


CANNOT WRITE ONES RMER2 


mm en me ee 


SEQ 9064 


DN 


N 5 
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ROR POINTER TABLE SEQ 0065 
002250 072160 EFT1 
125 
126 sERROR 52 CANNOT WRITE SHIFTING ONES RMER2 
002252 065 EMTS2 
002254 072032 EHT1 
002256 072132 EDT1 
260 072160 EFT 
128 
1¢9 zERROR 53 WNUSED BITS OF RMOF ARE NOT ZERO 
002262 065320 EMT5S3 
2 072032 EHT1 
072132 ‘ EDT1 
002270 072160 EFT1 
131 ’ 
136 zERROR 54 CANNOT WRITE ZEROS RMOF-FMT,ECI,HCI,OFD 
002272 0653 EMT54 
002274 072032 EHT1 
002276 072132 EDT1 , 
2300 072160 EFT1 
134 
4 zERROR 55 CANNOT WRITE ONES RMOF-FMT,ECI.HCI,OFD 
002302 065354 EMT55 
002304 072032 EHT1 
072132 EDT1 
002310 072160 EFT1 
137 | 
is sERROR 56 CANNOT WRITE SHIFTING ONES RMOF 
002312 065374 EMT546 
002314 072032 EHT1 
002316 072132 EDT1 
002320 072160 EFT 
140 | 
43 sERROR 57 DEVICE IS NOT AN RM05/3/2 
002322 065410 EMT57 
002324 072052 EHTS7 
002326 072140 EDTS7 
002330 072166 EFTS7 ' 
143 | 
we zERROR 60 DEVICE AVAILABLE IS NOT SET 
002332 065424 EMT60 
002334 072032 EHT1 
336 072132 EDT1 | 


005340 072160 EFT1 





—— a ee ee ee 


| 
| 
| 
| 
| 


CZ 
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ERROR POINTER TABLE 


0 
072132 
072160 


Zz ERROR 


: ERROR 


: ERROR 


“ERROR 


7 ERROR 


s ERROR 


ERROR 
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CANNOT WRITE ZEROS RMHR 


CANNOT WRITE ONES RMHR 


CANNOT WRITE SHIFTING ONES RMHR 


CANNOT CLEAR ILR STATUS 


ILR ERROR SHOULD NOT BE 


ILR ERROR SHOULD BE SET 


CANNOT CLEAR PAR STATUS=DPE IS RESET 


SET 


—_———— se — 


SEQ 0066 


——— 


; 
i 


INTER 





5/3 


sé DSKLS TST 1 


ABLE 


072172 


065640 
072062 
072144 
072172 


065664 
072062 
072144 
072172 


065704 


072066 
072146 © 


072174 


z ERROR 


zs ERROR 


: ERROR 


: ERROR 


: ERROR 


_ gERROR 


s ERROR 


. * 
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CANNOT CLEAR PAR AND DPE STATUS 


"'PAR"’ ERROR SHOULD NC” BE SET~"PAT'' IS OFF 


"'PAR’* ERROR SHOULD BE S£T-"PAT'’ IS ON 


“MCPE'' ERROR SHOULD NOT BE SET 


UNEXPECTED BUS TIMEQUT 


CANT CLEAR ‘‘DMD*’ 


CANT WRITE ZERO ‘'DMD’’ 


nr ee eee 


SEQ 0007 
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ERROR POINTER TABLE SEO 0068 
| 189 ;ERROR 77 CANT WRITE ONE "DMD"' 
| 002522 065742 EMI77 
| 002524 O75 085 EHT1 
902526 072132 EDT1 
002530 072160 EFT 
| 191 
| 198 :ERROR 100 DMD SET BY WRONG BIT 
| 002532 065756 EMT100 
| 0025 072062 EHT7; 
002536 072142 EDT65 
002540 072170 EFT65 
194 
<4 :ERROR 101 CANT CLEAR ‘MOL'' IN DIAGNOSTIC MODE 
542 065776 EMT101 
002544 072032 EHT1 
46 072132 EDT1 
002550 072160 EFT] 
197 : | 
198 :ERROR 102 CANT SET 'MOL'’ IN DIAGNOSTIC MODE 
002552 06601 EMT102 
002554 072032 
002556 072132 EDT1 
002560 072160 EFT1 
200 
201 :ERROR 103 "MUR'’ SET BY WRONG BIT 
002562 066036 EMT103 
$264 072062 EHT71 
566 072142 EDT65 
002570 072170 EFT65 
$3 | 
04 :ERROR 104 CANT RESET “WRL'' IN DIAGNOSTIC MODE 
002572 EMT104 | 
002574 bose 2 EHT1 
002576 072132 EDT1 
072160 EFT1 
$69 :ERROR 105 CANT SET 'WRL’’ IN DIAGNOSTIC MODE 
002602 066102 EMT105 
002604 072032 
002606 072132 EDT1 
002610 072160 EFT] 
209 


210 sERROR 106 “MWP*" SET BY WRONG BIT 





me ee ee ee Ce - 


_—— a oe 


211 
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ERROR POINTER TABLE 


066122 
072062 
072142 
072170 


072160 


MACRO Vv04.00 


: ERROR 


: ERROR 


zs ERROR 


: ERROR 


: ERROR 


7 ERROR 


> ERROR 


EMT 106 


110 


1117 


112 


114 
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CANT RESET *“DvC*’ USING *MDVC"" 


"DvC’* IS RESET BUT “UNS'' IS SET 


"DvC’* IS SET BUT ‘'UNS'’ IS NOT SET 


CANT SET 'DVC*' USING MDVC"* 


“DVC'’ IS RESET BUT ‘'UNS'' IS SET 


"DVC' IS SET BUT “'UNS'' IS NOT SET 


"MDF" IS SET BY WRONG BIT 


ee es ee a ew ee ee 


SEQ 0069 


— ——. —— — 


;. @ 
CZRMPBO RMOS/3/2 + te TST 1 MACRO V04.00 4-APR-81 01:24:25 PAGE 8-11 
ERROR POINTER TABL 


002702 066316 EMT115 
002704 072072 EHT115 
072150 EDT115 
002710 072176 EFT115 
233 
$3e zERROR 116 CANT RESET “‘SKI'' USING ‘MSER'’ 
002712 066 —EM1T116 
002714 072032 EHT1 
002716 072132 EDT1 
002720 072160 EFT1 
236 
337 :ERROR 117 CANT SET ‘‘SKI'' USING 'MSER"’ 
002722 066562 EMT177 
002724 072032 EHT1 
002726 072132 EDT1 
C02730 072160 EFT1 
239 
sch z:ERROR 120 ‘*SKI'' SET BY WRONG BIT 
002732 066402 EMT120 
002734 072072 EHT115 
002736 072150 EDT115 
002740 072176 EFT115 
242 
oe , sERROR 121 CANT RESET 'PIP*' USING ‘MOC'' 
002742 066426 : EMT121 
00 072032 EHT1 
002746 072132 EDT1 
002750 072160 EFT1 
245 
$05 | sERROR 122 CANT SET ‘'PIP’' USING ‘MOC’' 
002752 066446 EMT122 
002754 072032 EHT1 
002756 072132 EDT1 
002760 072160 EFT1 
248 
oS) sERROR 123 ‘MOC’’ SET BY WRONG BIT 
002762 EMT123 
2764 072072 EHT115 
006766 072150 EDT115 
770 072176 FFT115 
51 
5 sERROR 124 CANT CLEAR ‘'EBL"’ 


002772 066512 EMT 124 





00277 
005776 
003000 
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ERROR POINTER TABLE 


072032 


072160 


066566 . 


072176 


066612 


072200 


066630 


G 6 
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: ERROR 


: ERROR 


: ERROF 


: ERROR 


: ERROR 


ERROR 


> ERROR 





EHT1 
EDT} 
EFT] 
125 
EMT125 
EHT1 
EDT1 
EFT1 
126 


alee 


130 


EFT130 


131 
EMT 131 


EFT150 


"132 


EMT 132 
EFT132 
133° 


EMT 133 
EHT132 


“EBL’* NOT ZERO IN DIAGNOSTIC MODE 


CANT SET *‘EBL*' USING ‘DEBL"' 


‘‘DEBL*’ SET BY WRONG BIT 


"'LS'* NOT CORRECT ACCORDING TO RMDA 


“LST’' NOT CORRECT ACCORDING TO RMDA 


CANNOT INCREMENT SECTOR ADDRESS USING ‘DEBL*’ 


CANNOT INCREMENT TRACK ADDRESS USING ‘DEBL"’ 


SS A 


SEQ 007" 


= --2- oS... — 


003066 
C03070 


CZRMPBO RMOS/3/2 DSKLS TST 1 
FRROR POINTER TABLE 


072154 
072202 


072160 


066752 


072154 
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:ERROR 


: ERROR 


; ERROR 


> ERROR 


: ERROR 


: ERROR 


7 ERROR 


EDT132 
EFT132 


134 
EMT 134 


135 


s 
EHT1 
EDT] 
EFT 


136 
EMT 136 


137 


140 


EFT132 


141 
EMT141 


EFT132 


142 


EMT142 
EHT142 
EDT132 





UNUSED BITS OF RMDC NOT ZERO 


“"vv"" NOT RESET BY UNIT READY 


SERIAL NUMBER IS INCONSISTENT 


CANT CLEAR *'GO'’ BIT 


CANT INCREMENT CYLINDER USING *DEBL"' 


CANT RESET “‘LBT’* BY WRITING RMDA 


CANT SET “‘LBT’' USING ‘DEBL"’ 


a ee a — ——<—-- 


SEQ 00/< 


—— = 


CZRMPBO RMOS/3/2 DSKLS TST 1 
ERROR POINTER TABLE 


003160 072202 


072160 


067100 


072200 


067122 


072160 


: ERROR 


zs ERROR 


: ERROR 


: ERROR 


; ERROR 


> ERROR 


zs ERROR 


EF 1132 


143 
EMT143 


145 
EMT145 
EHT145 
EDT130 
EFT130 
146 


EMT146 


147 


151 
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CANT READ ZERO FROM COMP ERROR 


CANT SET COMP ERROR WITH RMER1 OR RMER2 


COMP ERROR DID NOT SET 


CANT SET ‘'GO’’ BIT 


cANT READ A ONE FROM ‘*'TST"’ 


"'TST’* IS INCORRECT FOR THE FUNCTION CODE 


CANT SET THE ‘'GO’’ BIT 


SEQ 007% 


23 
—_ 
mn 


5/3/2 DSKLS TST 1 
R TABLE 


067222 
072032 
072132 
072160 


067242 


072176 


: ERROR 


: ERROR 


s ERROR 


; ERROR 


; ERROR 


7 ERROR 


; ERROR 


153 


156 


EFT115 


157 
EMT157 


160 


EMT 160 
EHT150 
EDT115 
EFT115 
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“DRY'' NOT THE COMPLEMENT OF ‘'GO'’ 


“'GO"' RESET EARLY 


"'GO'" DIDNT RESET ON TIME 


CANT CLEAR CONTINUE 


CONTINUE IS INCORRECT FOR THE FUNCTION CODE 


CANT CLEAR IVC 


IVC IS INCORRECT FOR THE FUNCTION CODE 


mr rm ee ee se 


—— eee ~ 


603362 
003364 


003366 
003370 


072160 


067424 


072160 


067470 


0 
072160 


z ERROR 


: ERROR 


: ERROR 


; ERROR 


s ERROR 


s ERROR 


; ERROR 


161 
he 


163 


164 


165 
EMT165 
0 

0 

0 

166 
EMT 166 
HT1 


167 
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CANT CLEAR LSC 


CANT SET LSC 


COMMAND DECODE WAS ENABLED WITH COMP ERROR SET 


COMMAND DECODE WAS ENABLED WITH COMP E,.ROR SET 


DECODE DOES NOT SET 


CANT CLEAR OCCUPIED 


ILF SET WITHOUT GO BIT 





re rt ee ee + ee ee 


SEQ 00/75 


RM05/3/ 
POINTER T 


2 DSKLS TST 1 
ABLE 


067644 


072160 


Zs ERROR 


: ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


: ERROR 


170 
EMT170 
EHT150 
EDT115 
EFT115 
171 


EMT171 


EFT115 


172 
EMT172 


173 
EMT173 
EHT150 
EDT115 
EFT115 
174 


EMT174 


176 





i = 
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CANT SET YOLUME VALID 


ILF IS INCORRECT 


CANT SET OFFSET DIRECTION BIT 


OCCUPIED IS INCORRECT FOR FUNCTION CODE 


READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 


READ IN PRESET DIDNT CLEAR RMOF 


READ IN PRESET DIDNT CLEAR RMDA 


--RESERVED FOR POWER MONITOR BiT FAILURE-- 


SEQ 0076 


- 
e 


RMPBO RMOS/3/2 DSKLS TST 1 
ABLE 


M 6 
| ¢2 MACRO v04.00 4-APR-81 01:24:25 PAGE 8-18 
ERROR POINTER T 


SEQ 0077 
382 
003522 000000 0 
003524 000000 0 
003526 000000 0 
35 000000 0 
383 
ee zERROR 200 CANT SET OFFSET MODE BY OFFSET COMMAND 
003532 7726 EMT 200 
35 072032 EHT1 
003536 072132 EDT1 
003540 0721 EFT1 
386 
Sha :ERROR 201 CANT RESET OFFSET MODE BY RTC COMMAND 
003542 067744 EMT201 
3544 072032 EHT1 
C03546 072132 EDT1 
3550 072160 EFT1 
389 
toy :ERROR 202 CANT RESET OFD BY RTC COMMAND 
003552 067762 EMT202 
003554 072032 EHT1 
003556 072132 EDT1 
35 072160 EFT 
392 
302 zERROR 203 CANT RESET OM BY RMDC 
003562 EMT203 
0035 072032 EHT1 
0035 072132 EDT1 
003570 072160 EFT1 
395 
339 zERROR 204 CANT RESET OM BY EBL 
003572 070022 EMT 204 
003574 072032 EHT1 
003576 072132 EDT1 
072160 EFT1 
398 
inp zERROR 205 RUN AND GO NOT CORRECT FOR FUNCTION CODE 
003602 07004 EMT205 
003604 072116 EHT150 
3606 072150 EDT115 
003610 072176 EFT115 
401 
402 :ERROR 206 CANT SET IAE ERROR 


N 6 
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r RROR POINTER TABL SEQ 0078 
| 003612 070062 EMT206 
003614 000000 0 
| 003616 000000 0 
3620 000000 0 
Pe 
| 405 ZERROR 207 IAE IS INCORRECT FOR FUNCTION CODE 
003622 070112 EMT207 
003624 072116 EHT150 
003626 072150 EDT115 
003630 072176 EFT115 
407 
ro :ERROR 210 IAE IS INCORRECT FOR RMDA 
003632 070126 EMT210 
3634 672072 EHT115 
3636 072150 EDT115 
603640 072176 EFT115 
410 | 
si} ERROR 211 IAE IS INCORRECT FOR RMDC 
003642 070144 EMT211 
003644 072072 EHT115 
3646 072150 EDT115 
003650 072176 EFT115 
413 
416 sERROR 212 CANT SET AOE 
003652 070162 EMT212 
003654 072106 EHT142 
003656 072154 EDT132 
00 072202 EFT132 
416 
a7 :ERROR 213 RMR SET WHEN WRITING RMAS OR RMCS 
003662 070174 EMT213 | 
003 072122 EHT213 
3 072150 EDT115 
003670 072176 EFT115 
419 | 
430 ERROR 214 CANT SET RMR 
ih 070224 EMT214 
3674 072122 EHT213 
003676 072150 EDT115 
003700 072176 EFT115 
4 3 | | 
‘ ; sERROR 215 DRQ IS 0 AND PGM IS 1 
003702 070236 EMT215 


i a ee 


ee eee. 


RMPBO RMOS/3/2 DSKLS TST 1 
ROR POINTER TABLE 


0720 
072132 
072160 


072204 


070324 


070376 
072032 


; ERROR 


z ERROR 


; ERROR 


Zs ERROR 


; ERROR 


seRROR 


Zs ERROR 


216 


EMT216 
EHT1 


220 


222 


EF T220 


223 
EMT 225 


EF T220 


224 
EMT 224 
EHT1 


8 7 
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DVA IS NOT SET 


DPR IS NOT SET 


CANT SET PORT REQUEST BY READING RMCS1 


CANT SET PORT REQUEST BY WRITING RMAS . 


CANT SET PORT REQUEST BY WRITING RMDA 


CANT RESET PORT REQUES” BY RELEASE COMMAND 


CANT CLEAR ATA 3Y RMAS 





SEQ 0079 


me 


2 
RROR 


RMPBO RMO5/3/2 DSKLS TST 1 


OR POINTER TABLE 


003776 
004000 


072132 
072160 


072160 


070456 


072160 


070512 


072160 


070526 


072176 


07055C 
072116 


; ERROR 


z ERROR 


: ERROR 


: ERROR 


7 ERROR 


; ERROR 


; ERROR 


226 


231 


EFT115 


233 
EMT233 


EHT150 


ey 
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ATA IS RESET BUT RMAS NOT ZERO 


CANT RESET ATA BY GO | 


ATA NOT SET BY UNIT READY 


ATA NOT SET BY UNIT READY 


ATA NOT SET BY COMP ERROR 


ATA SET/DID NOT SET WHEN REGISTER WRITTEN 
WHILE COMP ERROR WAS SET 


ATA NOT SET BY COMMAND SEQUENCER 


SEQ 0080 


nas 


RMPBO RMO5/3/2 D 
ROR POINTER TABL 


004066 
004070 


072150 
072176 


070572 


072160 


070762 
072032 
072132 


TST 1 


: ERROR 


: ERROR 


s ERROR 


ERROR 


; ERROR 


; ERROR 


234 


EFT115 


235 
EMT235 
HT1 


236 
EMT 236 
EHT115 


EDT115 
EFT115 


240 


242 


D7? 
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WLE INCORRECT ACCORDING TO FUNCTION CODE 


CANT CLEAR EXCEPTION 


CANT SET EXCEPTION 


CANT CLEAR IVC 


CANT SET IVC 


OPI NOT SET DURING RECALIBRATE 


RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET 


eee ee _— 


SEQ 90871 


—— <= . 
-_--= ee 


C 
E 


Z 
R 


RMPBO RMO5/3/2 DSKLS TST 1 
ROR POINTER TABLE 


004160 072160 


072160 


004202 071050 
004204 072032 


499 

500 

501 
004212 1066 
004214 072032 
004216 072132 
004220 072160 

502 

503 

504 
004222 071112 
004224 072032 
004226 072132 
004230 072160 

505 

506 

507 

508 
004232 071130 
004234 072032 
004236 072132 
004240 072160 

509 

510 

511 


004242 071154 
004244 072032 


: ERROR 


: ERROR 


zs ERROR 


:ERRCR 


; ERROR 


: ERROR 


EFT 


243 


EMT 243 


244 


247 


251 


EMT251 
EHT1 





#, 
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I SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 


oP 
DROPPED DURING RECALIBRATE 


ATA NOT SET DURING RECAL IBRATE 


GO RESET EARLY DURING RECALIBRATE 


GO NOT RESET DURING RECALIBRATE 


INCORRECT TAG BUS DURING RECAL IBRATE 


OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT 
READY DROF°ED 


SEEK DID NOT ABORT WHEN DRIVE FAULT SET 


re re ee ee 


SEQ 008- 


—— ae ee 


—-—— 





004246 
004250 


RMO5/3/2 DSKLS TST 1 
ROR POINTER TABLE 


072132 
072160 


072160 


071242 


072160 


071260 


072160 


071322 


072160 


071346 
072032 


s ERROR 


: ERROR 


zs ERROR 


: ERROR 


ZERROR © 


> ERROR 


EDT) 
EFT] 


256 


EMT 256 
EHT1 


260 
EMT 260 
EHT1 


- A 
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SEQ Of 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEEK 


ATA NOT SET DURING SEEK 


GO RESET EARLY DURING SEEK 


GO DID NOT RESET DURING SEEK 


INCORRECT TAG BUS DURING SEEK 


OPI NOT SET DURING SEARCH 


SEARCH DID NOT ABORT WHEN DRIVE FAULT SET 


SE ee ee ee 


—_— eee 


7RMPBO RMOS/3/2 DSKLS TST 1 
FRROP POINTER TABLE 


004336 





072132 
072160 


071372 


072160 


071434 


072160 


071452 


072160 


071532 
072032 


: ERROR 


: ERROR 


: ERROR 


; ERROR 


; ERROR 


: ERROR 


> ERROR 


EDT] 
EFT] 


262 


264 


265 


267 


~~ 
EHT1 


G 7 
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» 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEARCH 


ATA NOT SET DURING SEARCH 


GO RESET EARLY DURING SEARCH 


a 


GO DID NOT RESET DURING SEARCH 


SEARCH ENABLE DIDNT SET DURING SEARCH 


INCORRECT TAG BUS DURING SEARCH 


OPI NOT SET BY SEARCH TIMEOUT 


ee 


CZ7RMPBO RMOS/3/2 DSKLS TST 1 
ERROR POINTER TABLE 


004426 
004430 


972132 
072160 


071546 


072160 


071572 


072160 


071616 


072160 


071670 


072160 


071710 
072032 
072132 


: ERROR 


: ERROR 


; ERROR 


; ERROR 


: ERROR 


: ERROR 


: ERROR 


EDT! 
EFT1 


270 


EMT270 


272 


274 


276 
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OPI NOT SET DURING DATA COMMAND 

DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET 
EBL RESET EARLY DURING DATA .COMMAND 

EBL DIDNT RESET ON TIME DURING DATA COMMAND 

GO NOT RESET DURING DATA COMMAND 

RUN AND GO NOT SET DURING DATA COMMAND 


INCORRECT TAG BUS DURING DATA COMMAND 


rr em ee ee + —— ~~ 


SEQ 08% 


—_— ~~ ~~ 
— mo - «= _ oe - 


ZRMPBO RMOS/3/2 DSKLS TST 1 
RROR POINTER TABLE 


004520 072160 
577 
578 
579 
580 
004522 071726 
004524 072032 
ae 072132 
0045 072160 
581 
582 
583 
004532 071752 
004534 072032 
004536 072132 
004540 072160 
584 
585 
586 
004542 071776 
544 072032 
004546 072132 
50 072160 
587 
588 
589 


004552 072014 


; ERROR 


: ERROR 


; ERROR 


EFT1 


277 


EMT 277 
EHT1 


301 


302 


. # 
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OPI NOT SET DURING DATA COMMAND WHEN ON 


CYLINDER DIDNT DROP 


DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET 


SEARCH NOT ENABLED DURING DATA COMMAND 


READ IN PRESET DIDNT CLEAR RMDC 


;PUT ERROR TABLE HERE 


— 


CZRMPBO RMO5/3/2 DSKLS TST 1 
ERROR POINTER TABLE 


MORITA) Ss Ss SS er 





aur 
B 2aEe 


Wr —- OUDOONOWUFWwro-OWon 


OQ 
R 
yw 
oO 
ae) 


ee 
pS 


wi 
On 


64 
6 


oO 


S888 88 
SEBS 


. 
$ 


012737 
000402 


005037 
000240 


oOooo0oo 
auld ant aad and an 


SS 

pw ly ty Mh 
WG 
™N 


oo=-— 
por Pa 


004576 


177777 


001330 
000000 


001114 
001154 
001100 
056100 


177777 


: 
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001530 


:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: MOV (SP) RO :SAVE PC WHERE THE TIME OUT OCCURED 
TST -(RO) sADJUST PC <2 
CMP (SP) +, (SP)+ “RESTORE STACK POINTER 
TYPE 65$ : 3 TYPE ASCIZ STRING 
BR 64$ =GET OVER THE ASC1? 
i365 -ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
V RO.-(SP) :SETUP FOR TYPING OUT PC 
TYPOC 
:rUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
-TO STOP ON UNEXPECTED TIMEOUT. 
_SBTTL START OF PROGRAM 
START1: MOV #-1,CHGADR : CHANGE RH/RM BUS ADDRESS 
BR START2 
START: CLR CHGADR :NO CHANGE IN ADDRESS 
START2: NOP 
INC #0 :TTY LOOP, WAIT FOR INCREMENT 
BNE 4 -OF WORD 
RESET “RESET THE WORLD 
.SBITL INITIALIZE THE COMMON TA 


GS 
;:CLEAR THE COMMON TAGS (S$CMTAG) AREA 


MOV #SCMTAG,R ¢ FIRST LOCATION TO BE CLEARED 
CLR (R6) + 2 CL EAR MEMORY LOCATION 

CMP ASWR RE 22D 

BNE --6 >: LOOP “BACK IF NO 


MOV #STACK, SP ;sSETUP THE STACK POINTER 
iain A FEW VECTORS 
AMSSCOPE ,AMIOTVEC ;;10T —— FOR SCOPE ROUTINE 


MOV #340, aviorvecee :sLEVE 

MOV #SERROR , aMEMT VEC ir - 4 VECTOR FOR ERROR ROUTINE 

MOV #STRAP ,a#TRAPVEC i TRAP VECTOR FOR TRAP CALLS 

MOV #340, a TRAPVEC +2: LEVEL 7 

MOV - #SPWRDN, ;POWER FAILURE VECTOR 

MOV #340, A#PWRVEC 2 LEVEL 7 

MOV SENDCT,SEOPCT ;;SETUP END-OF-PROGRAM COUNTER 

CLR TIMES iy NUMBER OF ITERATIONS 
CLR SCAPE oH EAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1 , SERMAX ;zALLOW ONE ERROR PER TEST 

ed +. SEPERR : INITIALIZE THE LOOP ADDRESS FOR SCOPE 


$ R ;SETUP THE ERROR LOOP ADDRESS 
fe FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


sEQUAL TO A ° SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #64$,QMERRVEC  ::SET UP ERROR VECTOR 
MOV ADSWR , SWR 22 SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #-1 ,aSWR ; TRY TO REFERENCE HARDWARE SWR 
BNE 66S s6 CH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 
BR 65$ > :BRANCH IF NO TIMEOUT 


re ee ae 


SEQ 0087 


K 7 
| CZRMPBO RMOS/3/2 DSKLS TST 1. MACRO VO4.00 4-APR-81 01:24:25 PAGE 9-1 
| INITIALIZE COMMON TAGS SEQ 0U85 
| 005070 012716 005076 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
005074 000002 RTI 
| 005076 012737 000176 001154 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SwR 
| 005104 012737 000174 001156 MOV #DISPREG, DISPLAY 
005112 012637 000004 66$: MOV (SP)+,aMERRVEC ::RESTORE ERROR VECTOR 
005116 005037 001230 CLR SPASS =CLEAR PASS COUNT 
005122 132737 000200 001243 BITB #APTSIZE.SENVM SITEST USER SIZE UNDER | APT 
005130 001403 BEQ 67$ YES,USE NON-APT SWITC 
005132 012737 001244 001154 ™ MOV #SSWREG, SWR >:NO,USE APT SWITCH REGISTER 
24 :SETUP "‘TIMEOUT'’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
25 005140 012737 004562 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
<6 005146 012737 000300 000006 MOV APR6,ERRVEC+2 :LEVEL 6 
28 .SBTTL TYPE PROGRAM NAME 
>: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005154 005227 177777 INC #-1 ::FIRST TIME? 
005160 001034 BNE 58S > :BRANCH IF NO 
605162 022737 054020 000042 CMP WSENDAD,a#42 ::ACT-11? 
005170 001430 BEQ 68$ - :BRANCH IF YES 
005172 104401 005200 TYPE 69S i: TYPE ASCIZ STRING 
005176 000425 BR £94 T OVER THE ASCIZ 
ainaiiee 53698: “ASCIZ <CRLF>@CZRMPBO - * BMmOS/ 3/2 DISKLESS TEST, PT 1@<CRLF> 
ihe -SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
005252 005737 000042 ae2 ::ARE WE RUNNING UNDER XXDP/ACT? 
005256 001012 BNE 70$ > :BRANCH IF YES 
005260 123727 001242 000001 CMPB —=s SENV,, #1 ;7ARE WE RUNNING UNDER APT? 
005266 001406 BEQ 70$ : =BRANCH IF YES 
005270 023727 001154 000176 CMP SWR, ASWREG ; : SOF TWARE SWITCH REG SELECTED? 
005276 001005 BNE 71$ : CH IF NO 
005300 104407 GTSWR -:GET SOFT-SWR SETTINGS 
005302 000403 BR 71$ 7 | 
005304 112737 000001 001150 70$: #MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 
- 005312 71$: 
30 : THE FOLLOWING FINDS ‘OUT THE PROGRAM CONTROL MODE: 
31 =PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
33 005312 005037 001332 CLR XXDP :CLEAR "XXDP" LOAD DEVICE STORAGE 
34 005316 122737 000016 000041 (MPR ss#16,8441 “LOADED FROM AN RMO5/3/2 ? 
35 005324 001160 BNE “BRANCH IF NOT 
56 003326 013737 000040 001332 MOV a440, XXDP -GET DEVICE INDICATOR J AND NUMBER 
37 005334 122737 000007 001332 CMPB = #7, XXDP “IS IT A VALID NUMBER ? 
38 005342 103002 BHIS 1$ “YE 
39 005344 105037 001332 CLRB = XXDP “NO, DEFAULT TO DRIVE 0 
40 005350 005737 000042 1$: TST are2 “CHAIN MODE OR ACT11 AUTO ACCEPT ? 
41 005354 001425 BEQ 3$ “BR IF NEITHER 
42 005356 104401 005364 TYPE 73$ 3 TYPE ASCIZ STRING 
005362 000412 BR 72$ GET OVER THE ASCIZ 
-73$: .ASCIZ <CRLF>/NOT TESTING DRIVE / 
005410 o5§. 
43 005410 005046 CLR -(SP) :CLEAR WORD ON STACK 
4 005412 113716 001332 MOVB = XXDP,, (SP) =GET DRIVE ADDRESS 
45 005416 104403 TYPOS -TYPE THE ADDRESS 
46 005420 001 .BYTE 1 “ONLY 1 CHARACTER 





eee ee ee coe --—= 


| GET VALUE FOR SOF TWARE 


————<— 


47 oF agh 


70 
f 005706 
2 005706 
7s 005714 
75 005716 
720 


012737 


132737 
001146 


CZRMPBO RMO5/3/2 DSKLS TST 
Sol TCH REGISTER 


0601217 


177777 
005444 


001332 
005504 
005574 
001326 
000042 
000377 
000200 


001276 
063234 


063516 
001217 





001300 


001243 


001300 


000010 


000010 
000000 
006220 


7 
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3$: 


:75$: 


o4$: 


::78$8: 


_BYTE 0 : SUPRESS LEADING ZEROS 
TYPE SCRLF 

S$ GET’ NUMBER OF DRIVES 
INC #-1 :FIRST TIME THRU HERE ? 
BNE 5$ =NO 
TYPE 75$ : TYPE ASCIZ STRING 

4$ T OVER THE ASCIZ 
“ASCIZ. <CRLF>/TO TEST DRIVE / 
CLR -(SP) :CLEAR WORD ON STACK 
MOVB = XXDP,, (SP) =GET DRIVE ADDRESS 
TYPOS -TYPE DRIVE ADDRESS 
_BYTE 1 -ONLY 1 CHARACTER 
-BYTE 0 :SUPRESS LEADING ZEROS 
TYPE 77$ i TYPE ASCIZ STRING 

76$ >GET OVER THE ASCIZ 
-ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
TYPE _78$ i: TYPE ASCIZ STRING 

T OVER THE ASCIZ 
te ASCIZ /WITH A WORK PACK. CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
=CHECK FOR AUTO MODE OR STANDALONE 

CLR AUTSIZ :LET AUTO DRIVE SIZING OCCUR 
TST ae2 “RUNNING IN AUTO MODE ? 
BEQ STANDALONE 


;BR IF NO 
37), SDEVM SET DEVICE MAP FOR ALL DRIVES 


; PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 


1$: 





BITB $#BIT7.$ENVM :SIZING ALLOWED ? 

BNE 12$ =NO 

CLR R1 START FROM DRIVE 0 

MOV SBASE .RO “LOAD THE BASE ADDRESS 

TYPE ,SYSTAT -TYPE "UNIT STATUS: 

BITB ATNTBL(R1),.$DEVM :1S DEVICE PRESENT IN MAP ? 
BEQ 11$ :BR IF NO 

TYPE /$CRLF > CR-LF 

MOV R1,-(SP) *: SAVE R1 FOR TYPEOUT 

TYPOS | ::G0 TYBE--OCTAL ASCII 

.BYTE 2 :ZTYPE 2 DIGIT(S) 

‘BYTE 0 SUPPRESS LEADING ZEROS 

TYPE /BLNKS4 -TYPE 4 BLANKS 

MOV #CLR.RMCS2(RO) :CLEAR MASS BUS 

MOV R1,RMCS2(RO) ;LOAD THE DRIVE ADDRESS 

TST RMDS (RO) ACCESS DRIVE REGISTER 

BIT W#NED.RMCS2(RO) :1S DRIVE PRESENT ? . 
BNE “BR IF NO { 
BIT WDVA.RMCS1(RO) :IS DRIVE AVAILABLE ? 

BEQ 4$ ;BR_IF_NO 

MOV #SRMO2,10$ ASSUME RMO2 DEVICE 

MOV RMDT (RO) ,R2 *SAVE DRIVE TYPE REGISTER IN R2 

CMP #20025 ,R2 *SINGLE PORT RMO2 ? 





SEQ 0084 


95 006032 
96 006034 
97 006040 
98 006042 
99 006050 
100 006054 
101 006056 
102 006062 
103 006064 
104 906072 
105 006076 
106 006100 
107 006104 
108 006106 
109 006112 
110 006114 
111 006122 
112 006124 
113 
114 006126 
115 006132 
116 
117 006134 
118 006140 
119 006144 
120 006146 
121 006154 
122 
123 006156 
124 006162 
125 
126 006164 
127 006170 
128 006172 
129 006176 
130 006200 
131 006204 
132 
133 006206 
134 006212 
135 006216 
136 006220 
137 
138 006222 
139 006224 
| core 
142 006232 
143 006236 


| CZRMPBO RMOS/3/2 DSKLS 
GET VALUE FOR SOF TWARE 


Sst sss sess ees etm ———— 


TST 7 
SWITCH RE 
024025 


063257 
020024 


024024 


063264 
020027 


024027 
063271 
010000 


063327 
063344 
001326 
063516 
063563 


001332 
001332 
063312 


063374 
063412 
000007 


001217 
006724 
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GISTER 


006220 


006220 


000012 


001300 


2s: 
3$: 
4S: 
5$: 


6$: 


7$: 


8$: 
9$: 


10$: 
11$: 


128: 


«* 


2$ 
#24025 .R2 
2$ 


#SRMO3, 10S 
#20024 .R2 


2$ 
#24024 ,R2 
2$ 


#$SRMO5 , 10% 
#29027 ,R2 


2$ 

#24027 ,R2 
2$ 

-NOTRM 
11$ 


AMOL ,RMDS (RO) 
6$ 


7$ 
-NOTPRS 
5$ 


~NOTAVL 
—* 


sBR IF YES 

;DUAL PORT RMO2 ? 
7BR IF YES 

sASSUME RMOS DEVICE 
sSINGLE PORT ? 
sBR IF YES 

;DUAL PORT RMO3 ? 
sBR IF YES 

sASSUME RMOS DEVICE 
SINGLE PORT RMOS ? 
sBR IF YES 


; DUAL "ee RMOS ? 


IF 


;BR ES 
sDRIVE NOT AN RMOS/3/2 
; CHECK NEXT DRIVE 


71S MEDIUM ON 
:BR IF 


LINE ? 


;DRIVE NOT PRESENT 
s CHECK NEXT DRIVE 


sDRIVE NOT AVAILABLE 


$ ;BR IF 
ATNTBL(R1),$DEVM 
11$ ;CHECK NEXT DRIVE 


UNTOF F 
$$ 


XXDP 

8$ 
XXDP,R1 
5$ 
-LODEV 
5$ 

» UNTON 
-BLNKS2 
0 


R1 
R147 
1$ 


, SCRLF 
CMNSTART 


DRIVE 


. sAUTO — ON 
;CLEAR DEVICE FROM BIT MAP 


OFFLINE 


;PRINT DRIVE TYPE 
;LOADED FROM RM80 ? 


:NO 
21S THIS THE DRIVE ? 
BR IF NO 


“DRIVE IS LOAD DEVICE 


sDRIVE 


ONL INE 


s TYPE 2 BLANKS 
sPRINT DRIVE TYPE 


sMESSAGE ADDRESS HERE 


; INCREMENT THE wy 


;ALL DRIVES ARE CHECKED 
;BRANCH IF NOT 


sCR-LF 
: JUMP TO COMMON START 


5 


AFOOWDWNAMNEWN - OVWD NOUS WH a= 


MONAT) @ @ @ @ amr rs er 


EWN WAWWP MPN YN 





RMOS/3/2 DSKLS TST 1 
ONE 


INPUT ROUTINES 


006242 
006242 


113737 


060470 
177777 


062624 
001176 
001176 
001176 
104312 
063404 
001217 


001330 


001330 
001217 


062655 
001276 


063412 
001176 
160000 
062665 
001176 
062727 
001272 
063412 
001176 
001000 
062736 
001176 
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000131 


001176 


001276 


001176 


001272 


.SBTTL STANDALONE INPUT ROUTINES 
STANDALONE : 
JSR PC, STKINT ; INITIALIZE CONSOLE 
INC #-1 :FIRST TIME THRU HERE ? 
BNE 2$ 7BR IF NO 
:SEE IF OPERATOR WANTS HELP TEXT 
TYPE § ,MSHELP :WANT HELP ? 
RDCHR :GET RESPONSE 
MOV (SP)+,$TMP1 :SAVE AND ECHO RESPONSE 
MPB = $TMP1.#°Y “WAS IT A YES RESPONSE ? 
BNE 1$ :NO 
‘TYPE =, $TMP1 TYPE 'y' 
“TYPE HELP :YES - TYPE HELP TEXT 
BR 3$ 
1$: TYPE  ,N :TYPE 'N’ 
TYPE SCRLF = CR-LF 
BR 3$ 
See IF USER WANTS TO CHANGE UNIBUS ADDRESS 


3$: 


4$: 
5$: 


6$: 


TST CHGADR ; CHANGE RH/RM BUS ADDRESS ? 
BEQ 7$ ;BR IF NO 

CLR CHGADR : sNO CHANGE NEXT TIME 

TYPE -SCRLF > CR-LF 


;DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


TYPE ,CNSLO1 : TYPE CURRENT BUS ADDRESS 
V SBASE ,- (SP) AVE $SBASE FOR TYPEOUT 
TYPOC £300 TYPE--OCTAL ASCIICALL DIGITS) 
TYPE -BLNKS2 TYPE 2 BLANKS 
RDOCT :GET NEW BUS ADDRESS 
MOV (SP)+,$TMP1 : CARRIAGE RETURN ? 
BEQ ;YES-SKIP TQ NEXT ENTR 
My # > a imma :BASE ADDRESS IN 1/0 PAGE 4 
TYPE CNSLO2 sTYPE WARNING MESSAGE 
BR $ ;TRY AGAIN 
MOV S$TMP1 , SBASE > STORE NEW BUS ADDRESS 
TYPE , CNSLO3 
CLR ~(SP) 
pod $VECT1, (SP) :GET CURRENT VECTOR ADDRESS 
TYPE ,-BLNKS2 sTYPE 2 BLANKS 
RDOCT >GET NEW VECTOR ADDRESS 
MOV (SP)+,$TMP1 : CARRIAGE RETURN? 
BEQ 7$ ;YES-SKIP TO NEXT ENTRY 
CMP #1000, $TMP1 ; VECTOR ADDRESS < 1000 ? 
BHI $ 7 YES! 
-" .CNSLO4 STYBE.UARNING MESSAGE 
MOVB STMP1,$VECT1 :STORE NEW VECTOR ADDRESS 


SEQ 0091 


Vin 
tM 


rl ————— 
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INPUT ROUTINES SEQ 0092 
8 “DIALOGUE TO INPUT DEVICE NUMBERS 
59 006466 005227 177777 7$: INC #-1 FIRST TIME THRU ? 
60 006472 001002 BNE 8s <BR 
61 006474 104401 062772 TYPE , CNSLO7 : TYPE INPUT INSTRUCTIONS 
006500 104401 001217 BS: TYPE /SCRLF =CR- 
006504 005037 001300 9$: CLR $DEVM CLEAR D DEVICE MAP 
510 104401 063212 TYPE .MSDRVS TYPE "DRIVE(S): ' 
65 006514 104411 RDCHR 
006516 012637 001176 MOV (S?)+,$TMP1 :GET RESPONSE 
67 006522 023727 001176 000101 CMP STMP1#°A z1S INPUT ‘A’ ? 
68 006530 001007 BNE 10$ “NO 
69 006532 104401 062610 TYPE ALL :YES, TYPE “‘ALL'' AND GO 
70 006536 012737 000377 001300 MOV #377 .SDEVM SET DEVICE MAP FOR ALL DRIVES 
zy 006544 000137 005706 : JMP KS1Z zAUTO SIZE. 
73 006550 023727 001176 000015 10S: CMP STMP1 ACR ACARRIAGE RETURN ? 
74 006556 001436 BEQ 12 - YES 
560 104401 001176 TYPE ~$TMP1 =ECHO RESPONSE 
76 006564 023727 001176 000060 CMP STMP1,#°O ; NUMBER <0? 
77 006572 002430 BLT 12$ | : YES 
78 006574 023727 001176 000067 CMP STMP1,#°7 =NUMBER > 7 ? 
79 006602 003427 BLE 138 : 
000423 BR 128 : ILLEGAL INPUT 
006606 104411 11$: RDCHR 
006610 012637 001176 MOV (SP) +, $TMP1 :GET RESPONSE 
84 006614 023727 001176 000015 CMP S$TMP1,A#CR : CARRIAGE RETURN ? 
85 006622 001432 BEQ 14$_ :YES 
86 006624 104401 062621 TYPE , COMMA TYPE ', ' 
87 006630 104401 001176 TYPE ~STMP1 -ECHO RESPONSE 
006634 023727 001176 000060 CMP STMP1_#'0 :NUMBER < 0 ? 
89 006642 902406 BLT 12$ if :YES 
90 006644 023727 001176 000067 CMP STMP1 #7 *NUMBER > 7. ? 
91 006652 003403 - BLE 13$ :NO 
4 006654 104401 063134 12$: TYPE ,CNSLO8 TYPE ‘'' 2ILLEGAL INPUT'' 
93 006660 000711 BR 9$ sRETRY 
95 006662 013701 001176 13$: MOV $TMP1.R1 :R1 = DRIVE NUMBER 
006666 042701 177770 BIC #°C7.R1 
006672 156137 063516 001300 BISB  ATNTBL(R1).$DEVM SET DEVICE IN MAP 
006700 122737 000377 001300 CMPB =: #377, $SDEVM :DONE ? 
006706 101337 BHI 11$ :NO 
906710 005237 001326 14$: INC AUTSIZ ~ =DO NOT AUTO SIZE WHEN TYPING DRIVE STATUS 
714 104401 001217 TYPE »$CRLF :CR-LF 
006720 000137 005706 JMP  —s« XSSIZ -GO SIZE DEVICES 


“Om 


i 


i 
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RMOS/3/2 DSKLS TST 1 
ONE INPUT ROUTINES SEQ 0093 
1 :ASSEMBLE TEST QUE FROM DEVICE MAP 
2 006724 CMNSTART: 
3 pont 104401 063156 TYPE DRIVES sTYPE “DRIVE(S) TO BE TESTED‘ 
4 006 013700 001300 MOV SDEVM,RO >RO = DEVICE MAP 
5 006734 1 BNE 1$ 8R IF , DRIVES TO TEST 
6 006736 062621 TYPE COMMA a. 
7 006742 104401 063205 TYPE NONE sTYPE ° , 
8 006746 012701 001470 1$: MOV #TSTQUE+2,R1 =R1 = ADDRESS OF FIRST ENTRY IN QUE 
9 006752 010137 001466 MOV R1, TSTQUE : INITIALIZE ENTRY POINTER 
10 006756 012702 000001 MOV #1_R2 sR2 = DEVICE POINTER 
11 006762 0050035 CLR R3 3R3 = DEVICE NUMBER 
1¢ 006764 030200 2$: BIT R2.RO0 31S THIS DEVICE IN MAP ? 
15 006766 001413 BEQ 3$ “NO !! 
14 006770 104401 062621 TYPE , COMMA “Tre *, * 
15 006774 010311 MOV R3,(R1) YES - ENTER gy NUMBER IN QUE 
16 006776 010346 | MOV R3.-(SP) >: SAVE R3 FOR TYPEOUT 
007000 104403 TYPOS : 3:GO TYPE--OCTAL ASCII 
90700 001 -BYTE 1 zz TYPE 1 DIGIT(S) 
00700 000 -BYTE 0O ;; SUPPRESS LEADING ZEROS 
7 CO7006 116361 063516 000001 MOVB ATNTBL(R3),1(R1):;ENTER ATTENTION BIT IN QUE 
18 007012 062701 000002 ADD #2,R1 sADVANCE ENTRY POINTER 
19 007016 006302 3$: ASL : ADVANCE DEVICE POINTER 
20 007020 105702 TSTB Re DONE ALL DEVICES ? 
21 007022 0014 BEQ 4$ “Y S 
22 007024 005203 INC R3 sADVANCE DEVICE NUMBER 
23 007026 000756 $ sENTER NEXT DEVICE 
24 007030 005011 4$: CLR (R11). : TERMINATE TEST QUE 
9 007032 104401 001217 TYPE ,SCRLF 3 TYPE CR-LF 
27 :SIZE FOR CLOCK ; 
28 007036 004737 054040 JSR PC,SIZCLK sSEE IF CLOCK PRESENT 
29 007042 000425 BR 6$ sYES - CLOCK IS PRESENT 
30 007044 104401 007052 TYPE -65$ : 3 TYPE ASCIZ STRING 
007050 000413 BR 64$ 7 GET a, THE ASCIZ 
-:65$: .ASCIZ <CRLF>/NO 'L" OR *P* CLOCK/ 
007100 64$: 
31 007100 005737 000042 TST. af42 ;ANY MONITOR PRESENT ? 
32 007104 001002 BNE 5$ “BR IF YES 
4 007106 000137 004652 JMP START ; JUMP TO START 
007112 000137 054010 S$: JMP SGET42 * RETURN CONTROL TO MONITOR 
35 007116 000413 ' Bz BR READY 1 
3 007120 00024 READY: NOP READY TO START TEST 
007122 105737 001300 _ TSTB SDE VM ANY DRIVES IN MAP ? 
9 007126 00 BNE 2$ “BR IF YES 
40 0071 000042 TST ar42 sANY MONITOR PRESENT ? 
41 007134 BNE 1$ 3BR IF YES 
ri} 0071 004652 JMP START ; JUMP TO START 
43 007142 054010 1$: JMP $GET42 RETURN CONTROL TO MONITOR 
44 007146 es: 
46 007146 001116 READY1: CLRB $STSTNM :RESET TEST NUMBER 
47 007152 001206 CLR STIMES : INITIALIZE NUMBER OF. ITERATIONS 
48 007156 060470 JSR PC, STKINT - INITIALIZE TTY 
9 007162 000000 MOV #PRO,-(SP) > PUT NEW PS ON STACK 
0071 007174 MOV #64$,-(SP) ::PUT NEW PC ON’ STACK 
007172 RTI ::POP NEW PC AND PS 


007174 
007174 


3 
FUNZS 2 


ra 
ge 


LIVI 
CON 
N 
Nm 
Nm 


63 007246 
64 
65 
66 
67 007254 
68 007260 
69 007264 


74 007304 


117737 


012737 
00 


012737 


104401 
104401 
013746 


104403 
00 


001376 


RMO5/3/2 DSKLS TST 1 
ONE INPUT ROUTINES 


172266 
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64$: 
001234 MOVB aTSTQUE , SUNIT ;LOAD DRIVE NUMBER 


:CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK 
[OF THE DIFFERENT DRIVE TYPES 


001334 MOV #TAS .LSTRK sASSUME LAST TRACK FOR RMO2/3 = 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 


000010 MOV #CLR,RMCS2(RO) :CLEAR MASSBUS 
000010 MOVB @TSTQUE ,RMCS2(RO) sSELECT DEVICE UNDER TEST 
} MOV RMDT (RO) ,R2 :GET RMDT AND 
BIC #177770,Rz ;SAVE DRIVE TYPE BITS 
CMP #7 ,R2 71S IT AN RMOS ? 
BNE 3$ :NO, MUST BE AN RMO2 OR RMO3 
001334 MOV #TAI6!TA2,LSTRK ;YES=-SET LAST TRACK = 18. 
;TYPE DRIVE NUMBER TO BE TESTED(S$UNIT) 
3$: TYPE - $CRLF ; CR-LF 
TYPE e-MSGDRV : TYPE ‘DRIVE’ 


MOV $UNIT, (SP) :SAVE SUNIT FOR TYPEOUT 
‘TYPE DRIVE NUMBER 
TYPOS | :GO TYPE--OCTAL ASCII 


-BYTE 2 :3 TYPE 2 DIGIT(S) 
-BYTE 0 SUPPRESS LEADING ZERO 
CLR R4 ; THESE TWO LOOPS ARE ADDED TO 
DEC yo :WAIT FOR TTY 
DEC R4 
oe 


SEQ 0094 


: 
23 


e-< 
wm 
— 
rm 
z 


5/3/2 DSKLS TST 1 
4D STORAGE USAGE 
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-SBITL REGISTER AND STORAGE USAGE 


:REGISTER ASSIGNMENTS 

zRO = UNIBUS ADDRESS OF RH CONTROLLER 

;R1 = ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
; UNIT UNDER TEST 

3R2,R35 = WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 

2 SAVED BY SUBROUTINES 

7R4,R5 = GENERAL WORKING REGISTERS, ARE NOT SAVED BY 

; SUBROUTINES 

:R6 = STACK POINTER 

3R7 = LINKAGE REGISTER TO SUBROUTINES 


: STORAGE ASSIGNMENTS 


“$TMPO-$TMP4 TEMPORARY STORAGE. NOT SAVED BY SUBROUTINES 
“$GDDAT,$BDDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 
"SGDADR.SBDADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE. 


—OUODWNAMALEWN $0 OD NOU WA) 


PINQNMQINIAINIAA) @ @ —? @ Re eer er 
Own wr 


nmr 
oOconNnN 


ALSO THE ADDRESS OF A REGISTER ERROR 


“$TSIN = TEST NUMBER 
“$UNIT = NUMBER OF DEVICE BEING TESTED 

“RGINBF = THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION F FOR 
: EACH REGISTER. AND IS .USED WHEN READING STATYS AND 
“RGOTBF = THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR 





EACH REGISTER, AND IS USED FOR ASSEMBL ING DATA TO BE 
WRITTEN IN REGISTERS 


SS ee. ee ee ~ _ << 


CeRePBO RMOS/3/2 DSKLS TST 1 


TRANSFER TEST 
, 


012737 
012702 


000475 


010003 


NMP NoN Nong NNN @ H — @ RR Rm 


We So et reg tee epee wb ot the the wh —- 0 COONAN fwr—: 


42 007516 


001100 
001276 
001466 
000001 
000000 


054674 
000010 
010000 


001140 
177770 


010000 


054674 


001140 
177770 
000100 


001136 
000010 


000000 © 


010000 
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001226 


001142 
001142 


001140 
061140 


001136 


001136 


000010 





J SA ATAAAAAAAAAAAEAAEAAAAAATAREAAEKAAEREHEREEH EHR HERA HEE E EES 


SSTEST 1 TRANSFER TEST 
FF AAA RAE AREER AARE AO RAAAREARAKEREAAAAERRERERRERKAEKHE ERR R HED 
TST1: 
— sSCOPE CALL 
MOV ASTACK,SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
MOV #1,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
MOV #0,R2 zR2 = REGISTER INDEX 
1 gee THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 
JSR PC,CNT :GO CLEAR CONTROLLER 
MOV RMCS2 (ROD , $BDDAT ;STORE RMCS2 AT $BDDAT 
BIT ANED , SBDDAT 
BEQ 20$ 
MOVB (R1) , $GDDAT 
BIC #°CUNTMSK , ee 
BIS #IR, ore" 
MOV RO, $BDAD 
ADD PRICS2. SBDADR 
EMT 1 
BR 60$ 


sREAD THE REGISTER — IS IN R2 AND EXIT TEST IF THE READ 


;DOES NOT SET ‘NED’’ 
208: 


MOV RO.R3 :R3 = REGISTER ADDRESS 

ADD R2.R3 

MOV (R3) ,R4 GREAD REGISTER 

BIT WNED.RMCS2(RO) 31S ‘NED’’ SET?? 

BEQ 70$ *NO!! 

JSR PC,C :GO CLEAR CONTROLLER 

MOV PMCS CRD) SBDDAT :STORE RMCS2 AT $BDDAT 

BIT #NED, SBDDAT 

BEQ 30$ 

MO (R1),$GDDAT 

BIC #*°CUNTMSK, S6DDAT 

BIS #IR,$GDDAT 

MOV RO, $BDADR 

ADD #RMCS2, $BDADR 

EMT 1 

BR 60$ 
;WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
DOES NOT SET ‘NED'’ ERROR : 

MOV #0, (R3) WRITE REGISTER 

BIT #NED ,RMCS2(RO) “1S NED" SET? 

BEQ 70$ =NO! 


:COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING “NED’* ERROR - 


Se 


-—— <— - = 


-__—— 


CZRMPBO RMOS/3/2 DSKLS TST 1 
rT TRANSFER TEST 


48 

49 

50 007532 

52 907536 022702 000002 

4 007544 022702 000004 

55 001770 

56 007552 eee tle 000010 

58 007560 oes 000016 

022702 000022 
1757 


62 007574 022702 000046 
o7 007600 103257 


602 
67 CO7602 013737 001276 
68 007610 104002 
A 007612 000137 053564 


00024 
007622 012706 001100 


O12 

79 007656 012760 177777 
80 007 012760 001777 
rH 007672 012760 016200 
83 
84 007700 012702 000001 
85 007704 

007704 016037 000000 
86 007712 016037 
87 007720 016037 34 
88 00 


92 
93 007740 042737 177701 
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001136 


001226 


001336 


zADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 


ZAVAILABLE DEVICE REGISTER 
40$: 


. sADVANCE TO NEXT REGISTER 
CMP #RMWC RZ 71S THIS RMWC? 
BEQ 40$ te - TRY NEX? REGISTER 
CMP ARMBA ,R2 :1$ 1 HIS 
BEQ 40$ YES - TRY NEXT REGISTER 
CMP #RMCS2 ,R2 71S THIS RMCS5?? 
BEQ 403 7YES - TRY ANOTHER REGISTER 
CMP ARMAS ,R2 -IS THIS RMAS ? 
BEQ 40$ YES - TRY ANOTHER REGISTER 
CMP ARMDB .R2 :1S THIS RMDB?? 
BEQ 40$ :YES ~- TRY ANOTHER REGISTER 


aa THIS A LEGAL REGISTER 
YES - TRY THIS REGISTER 


ip. "NONEXISTENT DEVICE® ERROR FOR EVERY REMOTE REGISTER ADDRESS 


cat  eelaameenae STORE BASE ADDRESS 
60$: JMP SEOSP 3;GO SELECT NEXT DEVICE 
70$: 
SERRE RE REEAEERE EKER KEEEKREKERKE ES 
“STEST 2 CTOD TEST 
- '—WeAeReSSeARASSASASASAAASASASAASAAARSASALSAAASASLAaLRAZRASARASAASLASASARSAASAASAASAAS & 2 
TST: 
ee sSCOPE CALL 
MOV ASTACK,SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO “RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 “RI = POINTER TO DEVICE 
MOV #2, $TESTN >; SET TEST NUMBER IN APT MAIL BOX 


JSR PC,CNTCLR 
sWRITE - IN REMOTE REGISTERS 


:GO CLEAR CONTROLLER 


MILF 76,RMCS1(RO) ;LOAD RMCS1 
MOV #-1 ,RMDA(RO) ;LOAD RMDA 
MOV WCYLMSK RMDC(RO)- ;LOAD RMDC 
MOV #*°CXNUOF ,RMOF (RO) ;LOAD RMOF 
sREAD REMOTE REGISTERS TWICE 
"e MOV #1,R2 
MOV RMCS1(RO) ,RMCS7] ;STORE RMCS1 IN ~— BUFFER 
MOV RMDA(RO) .RMDAI ;STORE RMDA IN INPUT BUFFER 
MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
:STORE RMOF IN INPUT BUFFER 


MOV RMOF (RC) ,RMOF I 
BPL 10$ 


sSEE IF ANY ONE BITS CAME BACK 
BIC #°CILF76,RMCS1] ;1S RMCS1 0?? 


ee ee ee eee ——— — 


eee ee = 
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Te CTOD fT SEQ OUY6 
94 007746 901014 - BNE 20$ zNO!! 
95 007750 005737 (001344 TST RMDAI 71S RMDA 0?? 
96 007754 001011 BNE 20$ zNO!! 
97 007756 042737 176900 001372 BIC FXNUDC ,RMDC I 71S RMDC 0?? 
98 007764 00100 BNE 20$ zNO!! 
7766 042737 161577 001370 BIC #XNUOF ,RMOF I 71S RMOF Q ?? 
+ ' 007774 001001 BNE 208% zNO!! 
10 7 CANNOT READ/WRITE ANY ONE FROM REMOTE REGISTER 
1035 007776 104003 EMT 3 
i 010000 ' 208: 
106 LER REE EERE EER ERE REE ERE RE REA EERETRER AR 
s*TEST 3 MASSBUS INITIALIZE TEST 
. OF IOI IOI IIOIIII IIIS IOI ER htt 
010000 TST3: 
010000 000004 SCOPE :SCOPE CALL 
010002 000240 NOP 
C10004 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
010010 013700 001276 MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
019014 013701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
107 010020 012737 000003 001226 MOV #3, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 
Hs 010026 004737 054674 JSR PC,CNTCLR :GO CLEAR CONTROLLER 
110 _ gWRITE ONES IN SELECTED REGISTERS 
111 010032 012760 000076 000000 MOV MILF 76,RMCS1 (RO) ;LOAD RMCS1 
112 010040 012760 177777 000014 MOV #-1,RMER1 (RO) ;LOAD RMER1 
iy 010046 012760 177777 000042 MOV #-1,RMER2 (RO) ;LOAD RMER2 
115 > INITIALIZE MASSBUS WITH A CLEAR | 
148 010054 004737 054674 JSR PC,CNTCLR :GO CLEAR CONTROLLER 
118 ;READ THE REGISTERS THAT WERE WRITTEN 
119 010060 016037 000000 001336 MOV RMCS1(RO) ,.RMCS1I ;STORE RMCS1 IN INPUT BUFFER 
120 010066 016037 000014 001352 MOV RMER1 (RO) ,RMER1I ;STORE RMER1 IN INPUT BUFFER 
161 010074 016057 000042 001400 MOV RMER2 (RO) ,RMERZ I :STORE RMER2 IN INPUT BUFFER 
158 ;SEE IF ANY REGISTER BITS WERE CLEARED 
124 ORs 6 052737 177701 001336 BIS #*CILF76,RMCS1I ;SET ANY BIT NOT WRITTEN 
1$? 010110 052737 001567 001400 BIS AXNUER2 ,RMER2! 
1 8 010116 022737 177777 001336 CMP #-1 ,RMCS11 zANY ZEROS IN RMCS1?? 
127 010124 001011 BNE 10$ ‘VES?! 
128 Seat 022737 177777 001352 CMP #-1 ,RMER1I zANY ZEROS IN RMERI?? 
129 0101 001005 BNE 10$ VES! 
130 010136 022737 177777 001400 CMP #-1 ,RMER2] sANY ZEROS IN RMER2?? 
12 010144 001001 ' BNE 10$ 
133 sNONE OF THE BITS WERE CLEARED 
134 010146 104004 EMT 4 
13 010150 | 10$: 
137 LER EERE AREER ERT REET REE ERE ee 
s*TEST 4 CLEAR STUCK ACTIVE TEST 


SFR ARAAARARAAAAAERAEARAREARAAKARARAAAARERARAAERERAEKRAARAEAAAAEREHEE RARE ES 


te 
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CZRMPBO RMO 
"4 CLEAR STUCK ACTIVE TEST SEQ 0099 
010150 TST4: 
010150 SCOPE ;SCOPE CALL 
010152 000240 NOP 
010154 012706 001100 MOV #STACK,SP LOAD THE STACK a 
010160 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
010164 913701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
38 010170 737 0060006 001226 MOV #4. STESIN > SET TEST NUMBER IN APT MAIL BOX 
iF #4 010178 004737 054674 JSR PC. CNTCLR ;GO CLEAR CONTROLLER 
141 :WRITE ONES IN TEST REGISTERS 
142 010202 012760 177777 000014 MOV #-1,RMER1 (RO) LOAD RMER1 
1435 010210 012760 177777 000042 MCV #-1 ,RMER2 (RO) :LOAD RMER2 
ee 010216 012760 000001 000024 MOV #DMD.RMMR1(RO) ;LOAD RMMR1 
145 ;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 
147 010224 016037 000014 001352 MOV RMER1 (RO) ,RMER1I :STORE RMER1 IN INPUT BUFFER 
148 010232 0160 000042 001400 MOV RMER2 (RO) “RMER2] oie RMER2 IN INPUT BUFFER 
149 010240 016037 000024 001362 MOV RMMR1 (RO) .RMMR1I STORE +f IN INPUT BUFFER 
150 0610246 042737 040000 001352 BIC #UNS ,RMER1 1 : DONT ACCEPT UNSAFE 
151 010254 001011 BNE 10$ *BRANCH IF ANY OTHER BITS ON 
152 010256 042737 040200 001400 BIC #SKI'DVC,RMER2I ;DONT ACCEPT SKI OR DVC 
153 010264 001005 BNE 10$ . = BRANCH IF ANY i: tee BITS ON 
154 010266 032737 000001 001362 BIT  #DMD.RMMR1I “BRANCH IF DMD IS ON 
155 010274 001001 BNE 10s =: 
156 010276 104026 EMT 26 : 
124 010300 10$: ¢ , 
159 FERRARA KREREKKEKEKEKEKEKKEKEKKEEKKEKKEERKKKEEREKEE 
“STEST 5 TRISTATE TRANSFER TEST 
fF AAA REAR EEEEEEEAEERKRKKEKKKEEKKEKEKEKEEEEKEEEKKEEEKKEEEEEREKEKE ; 
010300 TSTS: 
010300 00 SCOPE sSCOPE CALL 
010302 240 NOP 
010304 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
010310 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
010314 013701 001466 MOV TSTQUE ,R1 RI = POINTER TO DEVICE 
160 010320 012737 000005 001226 MOV AS. STESTN >SET TEST NUMBER IN APT MAIL BOX 
161 010326 005002 CLR R2 :;CLEAR ERROR FLAGS 
106 010330 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
164 ;WRITE ONES IN SELECTED REGISTERS 
165 010334 012760 000076 000000 MOV MILE 76,RMCS1(RO) sLOAD RMCS1 
166 010342 012760 177777 000006 MOV #-1 ,.RMDACRO) >LOAD RMDA 
167 010350 012760 177777 000014 MOV #-1,RMER1 (RO) :LOAD RMER1 
168 BlBeee 012760 177777 000032 MOV #-1,RMOF (RO) :LOAD RMOF 
4 010364 012760 177777 000042 MOV #-1 ,RMER2 (RO) sLOAD RMER2 
171 sWRITE ZEROS IN SELECTED allel 
172 010372 012760 000000 000000 MOV #0,RMCS1(RO) f RMCS1 
173 010400 O12 000000 000006 MOV #0,RMDAC(RO) TOAD RMDA 
174 010406 012760 000000 000014 MOV #0,RMER1(RO) :LOAD RMER1 
175 010414 012760 000000 000032 MOV #0,RMO Beet :LOAD RMOF 
176 010422 012760 000000 000034 MOV #0,RMDC (RO) :LOAD RMDC 
177 010430 012760 000000 000042 MOV #0, AMER? (RO) =LOAD RMER2 








CZRMPBO RMOS/3/2 DSKLS TST 1 
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2 0606 
204 010612 043702 001400 
205 010616 001407 


208 010620 010237 001142 
209 010624 005037 001140 
210 010630 104005 
211 010632 052702 000001 
212 010636 
443 010636 004737 054674 
214 
215 
216 010642 012760 0 
217 010650 012760 000000 
218 010656 012760 0 
219 
220 
221 010664 012760 
ge 10672 O12760 177777 
223 010700 012760 016200 
224 010706 012760 0017 
225 010714 012760 177777 
26 010722 012760 176210 
228 
29 010730 016037 000000 
30 010756 0160537 000006 
1 010744 016037 000032 
$2 010752 016037 000054 
33 010760 016037 000014 
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sREAD BACK ALL REGISTERS 


001336 MOV RMCS1(RO) .RMCS11 ;STORE RMCS1 IN INPUT BUFFER 
001344 MOV RMDA(RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER 
001352 MOV RMER1(RO) ,RMER11- ;STORE RMER1 IN INPUT BUFFER 
001370 MOV RMOF (RO).RMOFI ;STORE RMOF IN INPUT BUFFER 
001372 MOV RMDC(RO),RMDCI_ ;STORE RMDC IN INPUT BUFFER 
001400 MOV RMER2 (RO) ,RMER2I :STORE RMER2 IN INPUT BUFFER 
; CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ 
MOV #-1, ACCUMULATE ZEROS IN R2 
001336 BIS #-CILF76, RMCS11 SET ALL BITS NOT WRITTEN 
001370 BIS #XNUOF -RMOF 1 
001372 BIS AXNUDC ,RMDCI 
001400 BIS #XNUER2 ,RMER2 I | 
COM RMCS11 ; COMPLEMENT REGISTER CONTENTS 
COM RMDAI 
COM RMER1 1 
COM RMOF I 
COM RMDC I 
COM RMER21 
BIC RMCS11,R2 sACCUMULATE ALL ZERO BITS 
BIC RMDAI ,R2 : 
BIC RMER11,R2 
BIC RMOF I, 


BEQ 10$ :BRANCH IF EACH BIT IS ZERO 
:ONE OR MORE BIT POSIT IONS ARE NOT ZERO 
MOV R2,$BDDAT :SAVE RESULT FOR TYPE 
CUR ScDDAT :LOAD EXPECTED RESULT 
se BIS HBITO,R2 :SET ERROR FLAG 
"SSR PC. CNTCLR :GO CLEAR CONTROLLER 


sPRESET SELECTED REGISTERS TO ZEROS 
; (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INI?) 
MOV #0 ,RMDA (RO) :LOAD RMDA 


000006 
000032 MOV #0 ,RMOF (RO) ;LOAD RMOF 
000034 MOV #40 ,,RMDC (RO) ;LOAD RMDC 
sWRITE ONES IN SELECTED REGISTERS 
MOV #ILF76,RMCS1(RO) | ;LOAD RMCS1 
000006 MOV #~1 ,RMDA(RO) ;LOAD RMDA 
000032 MOV #“CXNUOF ,RMOF (RO) ;LOAD RMOF 
000034 MOV #*CXNUDC ,RMDC (RO) ;LOAD RMDC 
000014 MOV A#-1,RMERI(RO)  ;LOAD RMER1 
MOV #°CKNUER2 , RMER2 (RO) ;LOAD RMER2 
sREAB ALL REGISTERS 
001336 MOV RMCS1(RO) ,RMCS11 ;STORE RMCS1 IN el BUFFER 
001344 MOV RMDA(RO) .RMDAI ;STORE RMDA IN INPUT BUFFER 
001370 MOV RMOF (RO).RMOFI :STORE RMOF IN INPUT neces 
001372 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
001352 MOV RMER1 (RO) ,RMER1I ;STORE RMER1 IN INPUT BUFFER 
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001400 MOV RMER2 (RO) .RMER2] :STORE RMER2 IN INPUT BUFFER 
-CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ 
001336 BIC #°CILF76,RMCS11 =CLEAR ALL BITS NOT WRITTEN 
001370 BIC #XNUOF , RMOF I 
001372 BIC #XNUDC .RMDC I 
001400 BIC #XNUER2, RMER2I 
CLR R2 :ACCUMULATE ONES IN R2 
BIS RMCS11.R2 :ACCUMULATE ALI. ONE BITS 
BIS RMDAI. 
BIS RMOF I .R2 
BIS RMDCI.R2 
BIS RMER11 .R2 
BIS RMER21.R2 
CMP #-1,R :SEE IF EACH BIT POSITION WAS ONE 
BEQ 20$ “BRANCH IF NONE STUCK 
:ONE OR MORE BIT POSITIONS ARE NOT ONE 
MOV R2,$BDDAT :SAVE RESULT FOR TYPE 
001140 MoV #1. SGDDAT “EXPECTED RESULT 
es BIS #BIT1.R2 :SET ERROR FLAG 
TST R2 :ANY ERRORS DETECTED ?? 
BNE 30$ -YES - DONT DO BIT TEST 
wi MOV #1,R2 *R2=BIT POSITION 
JSR PC. CNTCLR :GO CLEAR CONTROLLER 
:WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 
MOV R2.RMDA(RO) =LOAD RMDA 
MOV R2,.RMOF (RO) =LOAD RMOF 
MOV R2.RMDC (RO) *LOAD RMDC 
MOV R2.RMER1 (RO) =LOAD RMER1 
MOV R2.RMER2 (RO) “LOAD RMER2 
:READ BACK THE REGISTERS 
001344 MOV RMDA(RO).RMDAI :STORE RMDA IN INPUT BUFFER 
001370 MOV RMOF (RO).RMOFI :STORE RMOF IN INPUT BUFFER 
001372 MOV RMDC(RO).RMDCI :STORE RMDC IN INPUT BUFFER 
001352 MOV RMER1 (RO) ,RMER11 :STORE RMER1 IN INPUT BUFFER 
001400 MOV RMER2(RO) .RMER21 -STORE RMER2 IN INPUT BUFFER 
:CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
CLR R3 -R3=ACCUMULATED ONE BIT 
MOV #-1,R4 “R4=ACCUMULATED ZERO BITS 
MOV RMDAI.R5 :GET ANY GOOD BITS FROM RMDA 
BIS R5.R3 
COM R5 
BIC R5R4 
MoV RMOF I . RS -GET GOOD BITS FROM RMOF 
BIS R5.R3 
COM R5 
BIC #XNUOF ,R5 
BIC R5,R4 
MOV RMDCI RS :GET GOOD BITS FROM RMDC 
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BIC ia 


COM R5 
BIC #XNUDC RS 
BIC 5,R4 


R>, 
MOV RMER1I,R5 ;GET GOOD BITS FROM RMER1 
BIS R5 R35 . 
OM R5 
RS ,R4 
MOV RMER2Z1 RS 


:GET GOOD BITS FROM RMER2 
BIC #XNUER2 RS 


BIS R5,R3 

C R5 

BIC AXNUER2 ,R5 

BIC R5.R4 

MOV R2.R5 ;RESET ALL ONES IN R3 EXCEPT 


COM R5 :FOR THE TEST BIT 
sRESET TEST BIT IN R4 


BIS R4 R53 ; COMBINE ACCUMULATED 1°S + 0°S 
CMP R3, :I1S PATTERN OK?? 
BEQ 26$ 7 VES: : 


;SAVE TEST PATTERN 
;SAVE RESULT 


iSKIP TO NEXT 


MOV oo 
BR 30$ 


Po tie R2 TO THE NEXT PATTERN AND REPEAT TEST 


30$: 


:SHIFT THE BIT 
sEXIT IF DONE 


CT EAA AAR 


3 *TEST 6 


REGISTER SELECT TEST 


-* 
>*NOTE: REGISTER SELECT 16 IS TESTED BY THE ‘‘ILR’’ TEST 
* 


fT EERE ERK REEEEEKREK CREEK EH 


TST6: 


i -SCOPE CALL 
MOV ASTACK ,SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO ;RO = UNIBUS ADDRESS 


MOV TSTQUE ,R1 ° °R1 = POINTER TO DEVICE 
MOV #6, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 


>THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
sEACH DEVICE REGISTER : 


REGISTER REG SEL 

NAME 16,8,4.,2,1) 
RMCS1 00000 

RMDS 00001 

RMER1 00010 


SEQ 910¢ 
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| 16 REGISTER SELECT TEST SEQ 0103 
| 340 : RMMR 1 00011 
341 : RMAS 001 
| 342 : RMDA 00101 
| 343 : RMD T 00110 
344 RMLA 00111 
345 RMSN 01000 
346 RMOF 01001 
347 RMDC 01010 
348 : RMHR 01011 
RMMR 2 01100 
350 : RMER2 01101 
351 : RMEC1 01110 
33¢ : RMEC2 01111 
354 -EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE, 
355 : STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1. 
356 OR S-A-0, RMER? IS WRITTEN WITH ZEROS. THEN THE REGISTER 
357 seat HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 
358 “BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPL 
359 >RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 als SA-0, 
360 -THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMERT 
361 “WILL NOT BE 0 WHEN READ BACK. 
363 011412 005002 CLR R2 :R2= ZEROS SOURCE 
364 011414 012703 177777 MOV #-1,R3 *R3= ONES SOURCE 
366 :TEST REG SEL 1 FOR S-A-0 
367 011420 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
368 011424 010260 000014 MOV R2,RMER1 (RO) “LOAD RMER1 
369 011430 010260 000034 MOV R2,RMDC (RO) =LOAD RMDC 
370 011434 010360 000024 MOV R3.RMMR1(RO) -: ;LOAD RMAR1. 
371 011440 010360 000036 MOV R3,RMHR (RO) = LOAD RMHR 
372 011444 016037 000014 001352 MOV RMER1 (RO) ,RMER1I :STORE RMER1 IN INPUT BUFFER 
373 011452 016037 000034 001372 MOV RMDCYRO),.RMDCI ;STORE RMDC IN INPUT BUFFER 
374 011460 020337 001352 CMP R3,RMER1I 
375 011464 001007 7 BNE 10$ 
376 011466 052737 176000 001372 BIS #XNUDC ,RMDCI 
377 011474 020337 001372 CMP R3,RMDCI 
378 011500 001001 BNE 10$ 
Te 011502 104010 EMT 10 
381 TEST REG SEL 1 FOR S-A-1 
382 011504 : ; 
3.011504 004737 054674 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
011510 010260 000006 MOV R2,RMDA(RO) :LOAD RMDA 
385 011514 010260 000032 MOV R2,RMOF (RO) =LOAD RMOF 
386 011520 010260 000042 MOV R2,RMER2 (RO) :LOAD RMER2 
387 011396 010360 000016 MOV R3,RMAS ( =LOAD RMAS 
388 0115 010360 000030 MOV R3,RMSN(RO) LOAD RMSN 
389 011534 010360 0 MOV R3, 2(RO) :LOAD RMMR2 
390 011540 016037 000006 001344 MOV RMDA(RO).RMDAI :STORE RMDA IN INPUT BUFFER 
391 011546 016037 000032 001370 MOV RMOF (RO).RMOFI :STORE RMOF IN INPUT BUFFER 
392 011554 016037 000042 001400 MOV RMER2 (RO) ,RMERZI :STORE RMER2 IN INPUT BUFFER 
393 011562 020337 001344 CMP R3,RMDAI 
394 011566 001015 BNE 20$ 
395 011570 052737 161577 001370 BIS AXNUOF , RMOF | 
396 011576 020337 001370 CMP ,RMOF I 
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6 REGISTER SELECT TEST SEQ 0104 
397 011602 001 BNE 20$ 
398 011604 052737 001557 001400 BIS #XNUER2 ,RMER21 
399 011612 020337 001400 , CMP R3,RMER?I 
400 011616 001001 BNE 20$ 
401 011620 104011 EMT 11 
403 : TEST REG SEL 2 FOR S-A-0 
404 011622 es: 
405 011622 004737 054674 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
406 011626 010260 000006 MOV R2.RMDA(RO) =LOAD RMDA 
407 011632 010260 000032 MOV R2.RMOF (RO) =LOAD RMOF 
408 011636 010260 000042 MOV R2.RMER2(RO) =LOAD RMER2 
409 011642 010360 000020 MOV R3,RMLA(RO) =LOAD RMLA 
410 011646 010360 000036 MOV 3° RMHR (RO) =LOAD RMHR 
411 011652 010360 000046 MOV R3.RMEC2(RO) “LOAD RMEC2 
412 011656 016037 000006 001344 MOV RMDA(RO).RMDAI :STORE RMDA IN INPUT BUFFER 
413 011664 016037 000032 001370 MOV (RO).RMOFI =STORE RMOF IN INPUT BUFFER 
414 011672 016037 000042 001400 MOV 2(RO) ,RMER21 -STORE RMER2 IN INPUT BUFFER 
415 011700 020337 001344 CMP R3,RMDAI 
416 C11704 001015 BNE 30$ 
417 011706 052737 161577 001370 BIS #AXNUOF , RMOF I 
418 011714 020337 001370 CMP R3,RMOF | 
419 011720 001007 BNE 0 
420 011722 052737 001567 001400 BIS AXNUER2 ,RMER2I 
421 011730 020337 001400 CMP R3,RMER21 
422 011734 001001 BNE 30$ 
423 011736 104012 EMT 19 
425 : -TEST REG SEL 2 FOR S-A-1 
426 011740 30$: 
427 011740 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
428 011744 010260 000014 | MOV R2.RMER1 (RO) “LOAD RMER1 
429 011750 010260 000034 MOV R2,RMDC (RO) *LOAD RMDC 
430 011754 012760 000076 000000 MOV #ILF76,RMCS1 (RO) =LOAD RMCS1 
431 011762 010360 000030 3 MOV R3,RMSN(RO) :LOAD RMSN ° 
432 011766 016037 000014 001352 MOV RMER1 (RO) ,RMER1I -STORE RMER1 IN INPUT BUFFER 
433 011774 000034 001372 MOV RMDC(RO),RMDCI ;:STORE RMDC IN INPUT BUFFER 
434 012002 052737 177701 001352 BIS #°CILF76,RMERTI | 
435 012010 020337 001352 CMP R3,RMER1I 
436 012014 001007 BNE 40$ 
437 012016 052737 176000 001372 BIS #XNUDC ,RMDCI 
438 012024 020337 001372 CMP R3,RMDCI 
439 012030 001001 BNE 40$ 
440 012032 104013 EMT 13 
44 :TEST REG SEL 4 FOR S-A-0 
443 012034 40$: 
444 012034 004737 054674 JSR _—-—«~ PC, CNTCLR :GO CLEAR CONTROLLER 
445 012040 010260 000014 ‘MOV R2.RMER (RO) “LOAD RMER1 
446 012044 010260 000032 MOV R2.RMOF (RO) *LOAD RMOF 
447 012050 010260 MOV R2.RMDC (RO) =LOAD RMDC 
448 012054 010360 000026 MOV «R3,RMDT(RO) “LOAD RMDT 
449 012060 010360 MOV R3.RMER2 (RO) “LOAD RMER2 
450 012064 010 ‘i MOV R3,RMEC1(RO) “LOAD RMEC1 
451 012070 016037 000014 001352 | MOV RMER1 (RO) ,RMER1I -STORE RMER1 IN INPUT BUFFER 
45¢ 012076 016037 000032 001370 | MOV RMOF (RO).RMOFI :STORE RMOF IN INPUT BUFFER 
453 012104 016037 000034 001372 MOV RMDC(RO).RMDCI =STORE RMDC IN INPUT BUFFER 
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ee 


RMPBO RMOS/3 
REGIST 
454 012112 
455 012116 
456 art. 
457 0121 
458 0121 
459 012154 
460 012142 
461 012146 
462 012150 
663 
464 
405 012152 
466 01215 
467 012156 
468 012162 
469 012166 
470 012172 
th 919206 
38 MEAE 
474 012216 
475 012220 
476 012226 
477 012232 
478 012234 
479 
480 
481 012236 
482 012236 
483 012242 
484 012246 
485 012252 
fs Hes 
18 019970 
489 012276 
490 012302 
491 O12 
492 012310 
493 012312 
494 
495 
496 012314 
497 012314 
498 012320 
499 012504 
500 01 
501 01 
502 012540 
503 012344 
504 012350 
505 012356 
506 012 
507 012572 
08 012400 
509 012402 
510 012410 


ms 


Dm 


SELECT TEST 
020337 001352 CMP R3.RMERII 
001015 | BNE 50$ 
052737 161577 001370 BIS #XNUOF .RMOF I 
020337 001370 CMP R3.RMOF | 
901007 BNE 50$ 
052737 176000 001372 BIS #XNUDC .RMDC I 
020337 001372 CMP R3,RMDCI 
001001 BNE 50$ 
104014 EMT 14 
in. REG SEL 4& FOR S-A-1 
737 054674 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
010260 000006 MOV R2.RMDA(RO) “LOAD RMDA 
010260 000042 MOV R2.RMER2(RO) LOAD RMER2 
010 000012 MOV R3.RMDS (RO) “LOAD RMDS 
10360 000032 MOV R3_RMOF (RO) “LOAD RMOF 
016037 000006 001344 MOV RMDA(RO),.RMDAI ;STORE RMDA IN INPUT BUFFER 
016037 000042 001400 MOV RMER2 (RO) .RMER2Z1 : STORE RMER2 IN INPUT BUFFER 
020337 001344 CMP R3,RMDA! 
601007 BNE 60$ 
652737 001567 001400 BIS #XNUER2 RMER2 . 
020337 001400 CMP R2,RMER21 
09100 BNE 60 
104015 EMT 15 
JEST REG SEL 8 FOR S-A-0 
004737 054674 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
010260 000014 MOV 2. RMER1 (RO) “LOAD RMER1 
010260 000006 MOV R2.RMDA (RO) “LOAD RMDA 
010360 000034 MOV R3,RMDC (RO) °L RMD C 
010360 000042 MOV R3.RMER2 (RO) -LOAD RMER 
016037 000014 001352 MOV R1(RO) .RME :STORE RMER1 IN INPUT BUFFER 
016037 000006 001344 MOV — ag <RMDAL s STORE RMDA IN INPUT BUFFER 
020337 001352 CMP R3,RMER1 
001004 BNE 70$ 
020337 001344 CMP R3,RMDAI 
001001 BNE 70$ 
104016 EMT 16 
TEST REG SEL 8 FOR S-A-1 
004737 054674 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
010260 000032 MOV R2,.RMOF (RO) “LOAD RMOF 
010260 000034 MOV R2.RMDC (RO) “LOAD RMDC 
010260 000042 MOV 2.RMER2(RO) :LOAD RMER2 
010 000012 MOV R3,RMDS (RO) *LOAD RMDS 
010360 000014 MOV R3,RMER1(RO) § :LOAD RMER1 
010360 MOV R3,RMDA(RO) “LOAD RMDA 
016037 000032 001370 MOV (RO),RMOFI =:STORE RMOF IN INPUT BUFFER 
016037 000034 001372 MOV RMDC(RO).RMDCI :STORE RMDC IN INPUT BUFFER 
016037 000042 001400 MOV RMER2 (RO) .RMERZ1- : STORE RMER2 IN INPUT BUFFER 
052737 161577 001370 BIS #XNUOF , RMOF I 
001015 BNE 80$ 
022737 17 001372 CMP #XNUDC ,RMDCI 
020337 001372 CMP R3.RMDCI 


DSKLS TST 


1 


BY 
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nr me = en ee 


PAA AAUIUIA 


IAQ et ad et ed ed ed 
=NAULRW. 


527 012500 


nO ROAD 
CONIA WIND 


PYM 
OIFERUN ISS 


fwn—-ovwo 


non out <add oO 
Sno ROoSN 


Pow 
aN Ss 


Www 


a 
VMIViVIMNA FMC NV) 


Wun & 


MMMM = NMP Noon 
Amor 


oOoCoooOo CcCOCOoOO OCOCOO° 
atwiwatot—=d ota oad 


Www 
Po oe 
Ow 


—t ts ed ed aed et ed 


022702 
001423 
022702 
001420 


022702 
15 


2 DSKLS TST 1 
R SELECT TEST 


601567 
001400 


000026 
020024 
024024 


020025 
24025 


020027 
024027 


054674 
000000 


. 5 
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001400 


001226 


001136 


001226 


001142 


173777 =001142 





80$: 


BNE 
BIS 
CMP 


BNE 
EMT 


80$ 

#XNUER2 .RMER2Z! 
R3_RMER2I 

80$ 


17 


FF AAA AAA AAA AAA AAAA AERA AERAAEAEAAEAAREERERARAERAARREREERRREE ERE EEE 


s*TEST 7 


DRIVE TYPE TEST 


TTT TTT TTT TECTURE TTT 


1817: 


10$: 


SCOPE 
NOP 


-#DULPRT'BIT1!BITO,R2 
10$ | 


sSCOPE CALL 
#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO =RO = UNIBUS ADDRESS 
TSTQUE ,R1 3R1 = POINTER TO DEVICE 
#7, STESTN 7:SET TEST NUMBER IN APT MAIL BOX 
RMDT (RO) ,R2 sSTORE RMDT AT R2 
ASNGPRT ,R2 sSINGLE PORT RMO3 ? 
10$ svee :: 
#DULPRT ,R2 ;DUAL PORT RMO3 ? 
10$ sves !! 


#SNGPRT!BITO,R2 ; A rae PORT RMO2 ? 


1 
ADULPRT!BITO,R2 Ay ald RMO2 ? 
10$ > YES 


#syGPRT!8111 :8170,R2 : SINGLE PORT RMOS ? 


[DUAL PORT RMOS ? 


R2,$BDDAT 


GET RECIEVED DRIVE TYPE 
RO, $BDADR : LOAD RESS 
SBDADR 


BAD ADDR 


57 
SEOSP :GO TO NEXT DEVICE 


FETE AEE EAERKEAERAEEKEEEEKKEKEKKEKEKEEKEKERRAKREKEKEKEEEKEKEKEKE 


VRTEST 10 


DEVICE AVAILABLE TEST 


"RARE KARAREEAEAAEKRAEREATAAEKCKAEAKKAKEKEAAKRKRKEEREEEKKEEREKREEERAEKEEE 


+S110: 


SCOPE 
NOP 





;SCOPE CALL 
#STACK, SP ;LOAD THE STACK POINTER 
$BASE , RO “RO = UNIBUS ADDRESS 
TSTQUE, Ri 7R1 = POINTER TO DEVICE 
MIO. STESTN -;SET TEST NurBcR IN APT MAIL BOX 
PC, CNTCLR 


:GO CLEAR CONTROLLER 
; STORE RMCS1 AT $BDDAT 
:CLEAR ALL BUT DVA 


RMCS1(RO) ,SBDDAT 
#°CDVA, SBDDAT 


SL Ee ee ee 


SEQ 0106 


R 
0 DEVICE 


558 

559 012670 
560 012674 
561 012676 
of 012702 


64 
565 


Ww CONAUSWIR—-O 
elejleialelelele) ala) 
roronrororgs 
SNNN NS 
SSG 


PUP PVP APSA A IIIS 
N 
* 


PERERES INS see 
3 


MVvIviIiviv' 
Co 
~~ 
lw 
SSS 


— 2 
=) 
MN 
& 


3024 
6 


013042 
339 013046 





MPBO RMOS/3/2 DSKLS TST 1 


AVAILABLE TEST 
001006 
012737 004000 
010037 001136 
104060 


0 
062737 


012760 


104061 
052703 


054674 


001136 
000036 


177777 
000000 


000036 
001142 
001140 
000001 


012760 000000 


177777 
000036 
001142 
001140 


000036 


D9 
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001140 


001226 


001136 


000006 
000006 
001142 


001142 


10$: 


{RRA AAA AAA ERATE ERE AAAAEAAEAEAAAEEAEKERAEEAERREKKEEEEERED 


SRTEST 11 


FF EAA AAA AERA REKOE REAR AKEKEKRKEAREREKEREKREEEEEREEKEKREKHEEE 


>SCOPE CALL 
;LOAD THE STACK POINTER 


TST11: 


SCOPE 


10$ 
#DVA,S$GDDAT 
' ra, 


;BRANCH IF DVA SET 
>SETUP EXPECTED 
7SETUP REG ADDRESS 


HOLDING REGISTER TRANSFER TEST 


ASTACK, SP 
SE ,RO 


TSTQUE .R1 
#11, $TESTN 


+ eet 


R 
RO, $BDADR 
#RMHR , SBDADR 


ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN. 


NOTE THAT 
MOV #=-1,RMDAC(RO) 
MOV #0, RMDA (RO) 
MOV RMAR (RO) , SBDDAT 
COM SBDDAT 
BEQ 10$ 
CLR SGDDAT 
EMT 61 
BIS #BITO,R3 
MOV 0 .RMDA(RO) 
MOV #-1 ,RMDA(RO) 
MOV nb peal SBDDAT 
COM SBDDA 
MOV #-1, ScD 
CMP SGDDAT, SBDDAT 
BEQ 20$ 
EMT 62 
BIS #BIT1.R3 

IF NO PREVIOUS 
TST R3 
BNE 50$ 
MOV #1,R2 

30$: : 
MOV #0,.RMDA(RO) 
MOV R2,RMDAC(RO) 
MOV RMHR (RO), SBDDAT 


:RO = 
:R1 = 


UNIBUS ADDRESS 


= POINTER TO DEVICE 
::SET TEST NUMBER IN APT MAIL BOX 


:GO CLEAR gla ll 


;CLEAR ERROR FLAGS 
; SETUP REGISTER ADDRESS 
sWRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS. 


IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN 
A p+ TO WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS 


;LOAD RMDA 
; LOAD 


RMDA 
; STORE eal ,AT SBDDAT 


ZANY ERROR 

NO! ! 

:LOAD EXPECTED 
;SET ERROR FLAGS 


la ZEROS THEN ONES IN RMHR AND CHECK FOR S-A-0 BITS. 


LOAD RMDA 


are 


:RMHR I 
: SETUP EXPECT 
:ANY ERROR?? 


NO! ! 


:SET ERROR FLAG 


ANY | FLAGS SET?? 
“R2=DATA PATTERN 


;,LOAD RMDA 
:LOAD RMDA 


:STORE RMHR AT $BDDAT 


sLOAD RMDA 
:STORE RMHR AT SBDDAT 
S SS lad WHEN READ 


* 


SEG 0107 


Pe — 
- _—<— - o- 


CZ 
| TT 


: 


598 013054 
599 01 
600 013064 


oOo OOOOO0OO 
aah abedubedad—bad 


NS Nanekvuw 


SOAP HOOCOHOOAAAOO: 

MOPanahy @ SS oo ee 

AUF WN-O CONAUSWwr— 
OVOOCOCoOOoO00O 
ond ed ed eed end ceed eed ed ee 
NAIA ANNA 
uo SS Ss i 

~™N wins 


AAO 
Wronofononono 
COOo™N 


AAO 
WwW 
=lelelelelelelei ei sie) 


SHUN sos 


OOofo 


: 


3 3 So 
$ 


ooo 
tow 
WwW 
foru 
“J 


2 


005137 
023702 


001404 
010237 
104063 
000402 


006302 
001355 


SELSSRLSE 
Ro A 
WNNNONNNO 


FISSRLLSA 
S08 a ee 
W WG 
~ ™N 


o— 
Ww 
OR 
WON 
Nm 
Ww 


03 


RMPBO RMOS/3/2 DSKLS TST 1 


001142 
001142 


001140 


F 
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HOLDING REGISTER TRANSFER TEST 


001226 


000000 
001142 
001142 


001136 


40$: 


50$: 


SBDDAT 
SBDDAT .R2 
40$ 
R2,$GDDAT 
63 

50$ 


R2 
30$ 


7RMHR_IS COMPLEMENTED 
—e 


=SETUP EXPECTED 
:D0 NOT COLLECT ALL ERRORS 


sSHIFT -TO NEXT PATTERN 
;CONTINUE IF NOT DONE 


WEARS RRRRRARARRARRRARARARRRARAA RRR RARER RAR ARA RRR SESR SAS ERS RRS ES SE SF 


CONTROL STATUS #1 TRANSFER TEST 


**TEST 12 


SF REAR ERAAEERREEERAAEKEEAE EEE REAR REEKKEKEEEREEKKEREEREER ERE 


TST12: 


.sWRITE ONES IN RMCS1, 


:SCOPE CALL 
#STACK,SP :LOAD THE STACK POINTER 
$BASE, :RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#12, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
R3 3R3 = ERROR INDICATOR 
PC, CNTCLR :GO CLEAR CONTROLLER 


;CHECK FOR S-A-1 BITS 
MOV 


#ILF76,RM 
PC, CNTCLR : 
RMCS1(RO) , SBDDAT 


BITS 01-05, THEN CLEAR. READ AND 


;LOAD RMCS1 
GO CLEAR CONTROLLE 


CS1(RO) . 
;STORE RMCS1 AT $BDDAT 


#*CILF76,$8DDAT 
5$ 


SGDDAT 


RO, $BDADR 
on | . 


:WRITE ONES IN RMCS1, BITS 01-05, THEN WRITE ZEROS. READ AND CHECK FOR 


:S-A-1 BITS. 
5$: 


sWRITE ZEROS IN 
10$: 


MOV 
MOV 


#ILF76,RMCS1(RO) ;LOAD RMCS1 

#0 ,,RMCS1 (RO) ;LOAD RMCS1 

RMCS1(RO) , SBDDAT ;STORE RMCS1 AT $BDDAT 
#*CILF76,$BDDAT 

10$ 

SGDDAT 

RO, SBDADR 

rial 

#B1TO,R3 :SET ERROR FLAG 

RMCS1, THEN ONES, READ AND CHECK S-A-O BITS. 
#0,RMCS1 (RO) ;LOAD RMCS1 

MILF 76,RMCS1(RO) ;LOAD RMCS1 


Senn ccccccnnn cnn SSS esses enstnsetsnnnesnseseseenneerenene cneneneereee et a ee ee — — ~_— 


SEQ 0108 


CZRMPBO RMOS/3/2 DSKLS 
T12 CONTROL STATUS 
645 013300 016037 
646 013306 042737 
647 013314 012737 
| 648 013322 023737 
| 649 013330 001410 
| 650 013332 010037 
| 651 013336 062737 
652 013344 104024 
653 013346 052703 
654 
| 655 
656 013352 
657 013352 005703 
658 013354 001035 
659 013356 012702 
460 013362 
661 013362 010203 
662 013364 042703 
663 013370 012760 
664 013376 010260 
665 013402 016037 
666 013410 042737 
667 013416 020337 
668 013422 001410 
669 013424 010337 
670 013430 010037 
671 013434 062737 
672 013442 104025 
678 013444 006302 
674 013446 001345 
675 013450 
676 
677 
013450 
013450 0 
013452 000240 
013454 012706 
013460 013700 
013464 013701 
gq 013470 012737 
679 013476 005003 
680 
681 
682 013500 012760 
684 013506 004737 
685 013512 016037 
686 013520 013737 
687 013526 042737 
688 013534 001410 
689 013536 005037 
690 013542 010037 
691 013546 062737 


TST 1 
#1 TRANSFER TEST 


000000 
177701 
000076 
001140 
001136 
000000 


000002 


000002 


177701 


000000 


y 
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000000 


001142 
001142 


001136 


001226 


TST R3 
BNE 50$ 
MOV #2,R2 
30$: 
MOV R2,R3 
BIC #*CILF76,R3 
MOV #0.RMCS1(RO) 
MOV R2,RMCS1 (RO) 
MOV RMCS1(RO) , SBDDAT 
BIC #*CILF76,$BDDAT 
CMP R3,$BDDAT 
BEQ 40$ 
MOV R3,$GDDAT 
MOV RO, $BDADR 
ADD #RMCS1,$BDADR 
EMT 25 
40$: ASL R2 
BNE 30$ 
50$: 
“STEST 13 
TST13: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV SE,RO 
MOV TSTQUE ,R1 
MOV #13, $TESIN 
CLR R3 
WRITE ONES IN RMER1T, CLEAR AND 
V #1 .RMER1 (RO) 
‘JSR PC,CNTCLR | 
MOV RMER1(RO), 4 ] 
MOV RMER1I, $BDDAT 
BIC 
BEQ 10$ 
CLR SGDDAT 
MOV RO, $BDADR 
ADD ' #RMER1,$SBDADR 


RMCS1(RO) , SBDDAT 


#8171 RB 
;WRITE A SHIFTING ONE BIT PATTERN IN RMCS1, 
= ;OMIT IF ANY ERRORS 
zR2 = 
;R3 = 


; LOAD 
;LOAD RMCS1 


:STORE RMCS1 AT S$BDDAT 


7SET ERROR FLAG 
READ AND CHECK FOR STUCK BITS. 


TEST PATTERN 

EXPECTED RESULT, BITS 1-5 
RMCS1 

STORE RMCS1 AT S$BDDAT 


:SHIFT TO NEXT BIT 
>CONTINUE IF R2 NOT ZERO 


SAREE AEEEEHREKRER EE § SERRE KKKKEKEKEKKEKKEEEKEEKEKEKE 


ERROR REGISTER #1 TRANSFER TEST 


tt eee ee PRR RLRSAAARAARAAARARLAAAAAAAARASAAAARA SSSR RS RRS RSS RSS S SS S | 


;SCOPE CALL 
;LOAD THE STACK POINTER 
:RO = UNIBU DRES 


zn] = 
;SET TEST NUMBER IN APT MAIL BOX 


;CLEAR ERROR FLAG 


CHECK FOR S-A-1 BITS 
;LOAD RMER1 


:GO CLEAR CONTROLLER 
>STORE RMER1 IN INPUT BUFFER 


#°C<PAR'RMR!ILF!ILR>, $BDDAT 





SEQ O1f 


692 013554 
693 013556 
SOL 018856 
695 013564 
69% 013572 
697 013574 
698 013600 
699 013604 
700 013612 
701 013614 
702 013614 
703 013622 
704 0136 
705 013632 
706 013636 
707 013642 
708 013650 
709 
710 
711 013652 
712 013652 
713 013660 
714 013666 
715 013674 
716 013702 
717 013710 
718 013712 
719 013716 
720 013722 
731 013730 
732 013732 
75% 013736 
754 013744 
755 013752 
756 013754 
757 013760 
758 013764 
739 013772 
730 013774 
731 014000 
722 014000 
78% 014006 
734 014014 
735 014016 
78% 014022 
737 (14026 
738 014034 
739 014036 
740 ; 
741 : 
742 01404 
743 014042 
74% 014050 
745 014056 
746 014064 
747 014072 
748 014100 





104027 
013737 
37 


062737 
104031 


012760 
012760 


$s 


—\NWW 
onN™N 


RMPBO RM05S/3/2 DSKLS TST 1 
' ERROR REGISTER #1 TRANSFER TEST 


001352 
074017 


00135 


177777 
000000 
000014 
001352 
177770 


001140 
001136 
000014 


000001 
001352 
074017 


000001 
001352 
147777 
001140 
001136 
000014 


030000 


000000 
177777 
000014 


177777 
001140 


MACEDO v04.00 


EMT 
70$: 


208: 


-WRITE ONES 
30$: 


40$: MOV 


50$: 


THEN ZEROS IN RMER1, 


G 9 
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27 


RMER11,$BDDA 
#C<DCK! TAE "AOE !HCRC:! HCE !ECH! WCF !FER>, $8DDAT 


.$8D 
#RMER1 , $BDADR 
30 
RMER11,$BDDA 
#*C<OPI !DTE>, " $BDDAT 


SGDDAT 
RO 


. SBDADR 
oo 


READ AND CHECK FOR S-A-1 BITS 


;LOAD RMER1 
;LOAD RMER1 
:STORE RMER1 IN INPUT BUFFER 


#-1 ,RMER1 (RO) 


= age anes ;SET ERROR FLAG 
#*C<DCK!IAE!AOE!HCRC!HCE!ECH! WCF !FER>, $BDDAT 
SGDDAT 

RO, $BDADR 
#RMER1 , SBDADR 
#BITO.R3 


RMER11,$BDDAT 
#“C<OPI !DTE>. . SBDDAF 


$SGDDAT 
RO, $BDADR 
#RMER1 , SBDADR 


34 
ABIT R35 


+SET ERROR FLAG 


im ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S-A-0 BITS 


#0 ,RMER1 (RO) ;LOAD RMER1 
#-1,RMER1(RO) ;LOAD RMER1 
RMER (RO) « . SBDDAT ;STORE RMER1 AT $BDDAT 
SGDDAT , SBDDAT 

70$ 


eeu es 


a  ————— 


ERROR REGISTER 


749 014102 
750 014106 


=SSNES RRA 
LSISFSLS 


PEEPLES PKL KKK LE 
MONAO 


COOCOOCOCOCOOoOoO COCCOCO 
uiiihababuiiababab=ab apababaD ad add 


NNW 


WW 


010037 
062737 
104035 
052703 


005703 
001042 
012702 


006302 
001340 


LS2=38S 


+ etm Spe 


ee 


RMPBO RMOS/3/2 DSKLS TST 1 
#1 TRANSFER TEST 


001136 
C00014 


000002 


000001 
054674 
000014 
600014 
000010 
040000 
040000 
001142 
001140 
001136 
000014 


001100 


054674 
177777 

032 
177577 


000200 
001136 


H 9 
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001136 


001142 
001142 


001142 


001136 


001226 


000032 
001142 
001142 
001140 
001136 


WRITE A 
“NOTE: 


708: 


80$: 


90$: 


100$: 


110$: 
120$: 


MOV 
ADD 
EMT 
BIS 


RO, SBDADR 
#RMER1, SBDADR 


35 
#B1T1,R3 


SHIFTING 1 BIT IN RMER1 AND CHECK FOR STUCK BITS 
DONT TEST UNSAFE OR PARITY 


RS ;SKIP THIS PART IF ANY ERRORS 
#1,R2 ;R2 = TEST PATTERN 

PC.CNTCLR :GO CLEAR CONTROLLER 
R2,RMER1(RO) LOAD RMER1 

RMER1 (RO), S$BDDAT ;STORE RMER1 AT $BDDAT 
#PAR ,R2 ;DONT TEST PAR = 0 
#PAR , SBDDAT 

#UNS ,R2 ;DONT TEST UNS = 0 

100$ 

#UNS , SBDDAT 

R2,$BDDAT 

110$ 

R2,$GDDAT 

RO, $BDADR 

#RMER1 , $BDADR : 

36 

R2 ;SHIFT TO NEXT BI) 

80$ :CONTINUE IF R2 NOT ZERO 


= Re Tee Te eT i ee IRIE KER KR KK hk 


**TEST 14 


wetAAS 2222 24 RRL ASRARSARAARSSASESASSASSRSRE RASA SRRSSRSER SSSA RS AS SS SS | 


TST14: 


10$: 


CLEAR OFFSET STUCK ACTIVE TEST 


sSCOPE CALL 
ASTACK,SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 ;R1_ = POINTER TO DEVICE 
#14,$TESIN | >sSET TEST NUMBER IN APT MAIL BOX 
PC,CNTCLR :GO CLEAR CONTROLLER 
#-1 ,RMOF (RO) : F 


;LOAD RMO 
RMOF (RO) ,SBDDAT ;STORE RMOF AT SBDDAT 
#°COFD,SBDDAT 
10$ CH IF OFD IS A ONE 


; BRAN 
#OFD,$GDDAT : SETUP ERROR MESSAGE 
RO, $BDADR 


sEND OF TEST 


went SAAR RRRES SASS SS RR RSRRRSAA RRR SAAR ARRAS RRR RRR RR RRR RRR RSA RR ES SE DD: 


TeTEST 15 





OFFSET REGISTER TRANSFER TEST 


SEQ OITI 


lie ti 
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fe OFFSET REGISTER TRANSFER TEST SEG CiiZ 
FF SAS AAAAARARAAAAARAARAAAEARAAAAAAARAAAAAAARAKAKRAHEARAKAAARRReRee Ke RA ee 
014332 000004 SCOPE :SCOPE CALL 
014334 000240 NOP 
014336 012706 001100 MOV #STACK.SP :LOAD THE STACK POINTER 
014342 013700 001276 MOV SBASE ,RO =RO = UNIBUS ADDRESS 
014346 013701 001466 “ MOV TSTQUE .R1 :R1 = POINTER “10 DEVICE 
_ 014352 012737 000015 001226 MOV #15. $TESIN +: SET TEST NUMBER IN APT MAIL BOX 
796 014360 005003 CLR R3 :RESET ERROR FLAGS 
797 014362 010037 001136 MOV RO, SBDADR ;SETUP BAD ADDRESS 
798 014366 062737 000032 001136 ADD #RMOF , SBDADR 
799 014374 005037 001140 CLR S$GDDAT . :SETUP EXPECTED DATA 
801 :WRITE ONES THEN ZEROS IN RMOF AND CHECK FOR S-A-1 BITS. 
802 014400 012760 177777 000032 MOV #~-1,RMOF (RO) :LOAD RMOF 
803 014406 012760 000000 000032 MOV #0,RMOF (RO) ;LOAD RMOF 
ae 014414 016037 000032 001370 MOV RMOF (RO),RMOFI ;STORE RMOF IN INPUT BUFFER 
806 :CHECK UNUSED BITS OF RMOF FOR ZERO 
807 014422 013737 001370 001142 MOV RMOF I , SBDDAT :GET UNUSED BITS 
808 014430 042737 016200 001142 BIC #°CXNUOF , $BDDAT 
809 014436 001403 BEQ 10$ :BRANCH IF NO ERROR 
810 014440 104053 EMT 53 
ae 014442 052703 000001 BIS #B1TO,R3 ;SET ERROR FLAG 
813 :CHECK USED BITS OF RMOF FOR ZERO 
814 014446 10$: 
815 014446 013737 001370 001142 MOV RMOF I, ge Ae :GET USED BITS 
816 014454 042737 161577 001142 BIC #XNUOF , SBDDAT 
817 014462 001403 BEQ 20$ :BRANCH IF NO ERROR 
818 014464 104054 EMT 54 
B55 014466 052703 000001 BIS #BITO,R3 :SET ERROR FLAG 
821 ;WRITE ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-O BITS. 
822 014472 20$: 
823 014472 012760 000000 000032 MOV #0,RMOF (RO) ; LOAD RMOF 
824 014500 012760 177777 000032 MOV #-1.RMOF (RO) LOAD RMOF 
aS? 014506 016037 000032 001370 MOV RMOF (RO), RMOF I STORE RMOF IN INPUT BUFFER 
827 : CHECK UNUSED BITS OF RMOF io ZERO. 
828 014514 013737 001370 001142 MOV RMOF I , SBDDAT :GET UNUSED BITS 
829 abet 3 042737 016200 001142 BIC #°CXNUOF , SBDDAT 
830 0145 001403 BEQ 30$ :BRANCH IF NO ERROR’ 
831 014532 104053 EMT 53 
ae 014534 052703 000001 BIS #BITO.RS 
834 -CHECK USED BITS OF RMOF FOR ONE, 
835 014540 30$: 
836 014540 013737 001370 001142 MOV RMOF 1 , $BDDAT :GET USED BITS 
837 014546 042737 161577 001142 BIC AXNUOF , SBDDAT 
838 014554 012737 016200 001140 MOV #*°CKXNUOF ,$GDDAT ; SETUP EXPECTED STATUS 
839 014562 023737 001140 001142 CMP $GDDAT, $BDDAT 
840 014570 001403 BEQ 40$ :BRANCH IF NO ERROR 
841 014572 104055 EMT 55 
842 014574 052703 000002 BIS #BIT1,R3 





en ee ee lee -— - 


CZRMPBO RMO5/3/2 DSKLS TST 1 
; T15 OFFSET REGISTER TRANSFER TEST 


5 
ae 012702 000001 
850 014610 012760 000000 000032 
851 014616 010260 000032 
852 014622 016037 000032 001142 


| 

| 

| 854 014632 042703 161577 
| 855 014636 020537 001142 
| 


001403 
857 014644 010337 001140 


aes 018676 012757 000016 001226 
866 014704 005003 

+ 867 014706 010037 001136 
868 014712 062737 000042 001136 
869 014720 005037 001140 
870 014724 012757 010000 001444 
872 
873 
874 014782 012760 177777 000042 


876 014740 004737 054674 
877 014744 013760 001444 000032 
878 014752 016037 000042 001400 


879 

880 

881 014760 013737 001400 001142 
oat 014766 042737 176210 001742 
883 014774 001403 

884 014776 104044 

885 015000 052703 000001 

886 

887 

888 015004 

889 015004 013737 001400 001142 
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ine NO PREVIOUS ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN, 


TST R3 ;ANY ERROR?? 
BNE 70$ s¥ES: ? 
sos MOV #1,R2 ;STARTING DATA PATTERN 
MOV #0,RMOF (RO) ;LOAD RMOF 
MOV R2,RMOF (RO) > LOAD RMOF 
MOV RMOF (RO) ,.SBDDAT ;STORE RMOF AT S$8DDAT 
MOV R2,R3 ;SETUP EXPECTED a 
BIC #XNUOF ,R3 :CLEAR UNUSED BITS 
CMP R3,$8DDAT ; COMPARE gt pie . RECEIVED 
BEQ 60$ = BRANCH IF NO ERR 
MOV R3,$GDDAT :LOAD EXPECTED 
EMT 56 
60$: ASL R2 SHIFT TO NEXT BIT 
BNE 50$ sCONTINUE IF NOT DONE 
70$: 


KERR KEAKEKCEKEEEKEKEKEEAEKEEKKEKAKKKKKKKEKKKKEKEKEKEKEKKAEEKEKEKEKKEKEEKEKEEK 


“RTEST 16 ERROR REGISTER #2 TRANSFER TEST 


FT ARERR RARE EKER EERE EKEEKEH 


TST16: 


SCOPE | ;SCOPE CALL 

MOV —- #STACK, SP ;LOAD THE STACK POINTER 
MOV —- $BASE,RO_ ;RO = UNIBUS ADDRESS 
MOV —s TSTQUE.R1 :R1_= POINTER TO DEVICE 


MOV #16, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
CLR R3 :RESET ERROR FLAGS 
MOV RO, $BDA :SETUP BAD ADDRESS 
ADD TPOERD. SBDADR 
:SETUP EXPECTED DATA 


MOV eh nies :SET 16 BIT FORMAT MODE TO ALLOW 
7‘'SSE’’ TO BE SET IN RMER2 


:WRITE ONES IN RMER2, CLEAR AND CHECK FOR S-A-1 BITS 
MOV #-1,RMER2(RO)  :LOAD RMER2 


JSR PC.‘CNTCLR =GO CLEAR CONTROLLER 

MOV RMOFO,RMOF (RO) =LOAD RMOF 

MOV RMER2 (RO) .RMER2I -STORE RMER2 IN INPUT BUFFER 
:TEST UNUSED BITS FOR ZERO-FAILURE ON IF 

MOV RMER2Z1, SBDDAT 


BIC #°CKNUER2, SBDDAT 
BEQ 10$ :BRANCH IF NO ERROR 


bh 
BIS #B1T0.R3 “SET ERROR FLAG 
TEST “DPE, “' ' LSC’ FOR ZERO-FAILURE ON CS. IF 
MCV —s RMER21, $BDDAT 


ae 


i 
’ 


SEQ 0115 


T16 


2) 
N— 


89 

893 
894 
895 


897 


Cit ttt 


oOoOoOwoOv0ov0o 


ond aD wah ab aah od ca a 
NOUS WN-O 


Ooo0o0do 
ab edad ad Dad 
MAA) 
ed end ee a ed ed 


918 


CZRMPBO RMOS/3/2 DSKLS T 


ERROR REGISTER 


890 015012 
8 5020 


015022 
015024 


896 o120e 


015050 


015054 


oO 
~N 
oO 


ALM S 


4 ay NON 
MOCO” 


tiulickebah aababeaD 
—_ NN GUIS Ss 


SORSSVER 


042737 
001403 


104045 
052703 


013737 
042737 
001403 
104046 
052703 

2760 


01 
012760 
016037 


013737 


104047 
052703 


013737 
042737 


032705 


143777 


000001 


000000 
177777 
000042 


001400 
176210 


000001 


001 367 
dae 
001140 


000002 
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ee TRANSFER TES! 


001142 


001142 
001142 


000042 
000042 
001400 
001142 
001142 


BIC 
BEQ 
EMT 
BIS 


-TEST ‘UBC’, 
20$: 





#*C<OPE!IVC'LSC>,$BDDAT 
20$ :BRANCH IF NO ERROR 


45 
#BITO,R3 :SET ERROR FLAG 
"DPE** FOR ZERO-FAILURE ON DS, IF 


MOV RMER21, $BDDAT 
BIC #°C<LBC 'DPE>, SBDDAT 
BEd 05 :BRANCH IF NO ERROR 
BIS #BITO.R3 :SET ERROR FLAG 
zWRI TE ONES IN RMER2 THEN WRITE ZEROS AND CHECK FOR S-A-1 BITS. 
"MOV #-1,RMER2(RO)  =LOAD RMER2 
MOV #0,RMER2 (RO) “LOAD RMER2 
MOV RMER2 (RO) ,RMER2] : STORE RMER2 IN INPUT BUFFER 
syesy ‘Ure. “Ive. “ise FOR ZERO-FAILURE ON CS, IF 
MOV \RMER21 , $BDDAT 
BIC #*°C<OPE!IVC'LSC>,$BDDAT 
BEd +408 ‘BRANCH IF NO ERROR 
BIS #BITO.R3 :SET ERROR FLAG 
Jest “LBC'', "DPE'' FOR ZERO-FAILURE ON DS, IF 
"MOV RMER21,$BDDAT 
BIC #*C<LBC 'DPE>, $BDDAT 
BEG .50$ :BRANCH IF NO ERROR 
EMT 50 
BIS  _-#BITO,R3 :SET ERROR FLAG 
WRITE ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S-A-O BITS. 
~ MOV~—s«ss« #0, RMER2(RO)  —-: LOAD _RMERZ 
MOV | #=-1,RMER2(RO)  :LOAD RMER2 
MOV / RMER2(RO),RMERZI :STORE RMER2 IN INPUT BUFFER 
: TEST UNUSED BITS FOR ZERO~FAILURE ON IF 
MOV RMER21, $BDDA 
BIC #*CXNUERZ, SBDDAT 
BEQ 36, (60S :BRANCH IF NO ERROR 
EMT | 44 
BIS #BITO.R3 -SET ERROR FLAG 
TEST USED BITS FOR ONE-FAILURE ON IF 
MOV RMER21, $BDDAT 
BIC #XNUER2, $BDDAT 
MOV #*CKXNUER2Z, $GDDAT 
CMP $GDDAT . SBDDAT 
BEO 708 :BRANCH IF NO ERROR 
BIS #BIT1.R3 :SET ERROR FLAG 


> IF NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT. 


we —<< — -- 
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CZRMPBO RMOS/3/2 DSKLS TST 1 
716 ERROR REGISTER #2 TRANSFER TEST SEQ 
947 015254 70$: 
948 015254 005703 TST R3 ; ANY ERRORS? 
949 015256 001044 BNE 120$ >YES! 
950 015260 012702 000001 MOV #1,R2 :R2= DATA PATTERN 
951 015264 80$: 
952 015264 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
953 015270 013760 001444 000032 MOV RMOFO,RMOF (RO) ;LOAD RMOF 
954 015276 010260 000042 MOV R2,RMER2(RO) ;LOAD RMER2 
955 015302 016037 000042 001142 MOV RMER2 (RO) , SBDDAT ;STORE RMER2 AT $BDDAT 
956 015310 032702 040000 BIT #SK1,R2 21S SKI BEING SET? 
957 015314 001003 BNE 90$ YES! 
958 015316 042737 04 001142 BIC #SKI,$BDDAT “DONT TEST SKI FOR ZERO 
959 015324 032702 000200 90$: BIT #DVC.R2 ‘33 DvCc BEING SET?? 
960 015330 001003 BNE :00$ | YES! 
961 015332 2737 000200 001142 BIC #DVC,$BDDAT “DONT TEST DVC FOR ZERO 
962 015340 010237 00114 100$: MOV R2.¢ sDDAT 
963 015344 2737 001567 001140 BIC MXNUER2,SGDDAT - ; UNUSED eae 5 SHOULD BE ZERO 
964 015352 023737 001140 001142 CMP S$GDDAT , SBDDAT ; ANY *eetaes 
965 015360 001401 BEQ 110$ 3NO! 
rs C15362 104052 EMT 52 
968 015364 006302 110$: ASL R2 7SHIFT TO NEXT DATA BIT 
oo 015366 001336 BNE 80$ ;CONTINUE IF NOT DONE 
o7> 015370 120$: 
973 RR KER EERE ERR REE ERE REE EEE EER ee 
= *TEST 17 SERIAL NUMBER TEST 
SLR ERE RRR ERE REE ERE REE REE ERE ERE 
015370 TST17: 
015370 SCOPE ;SCOPE CALL 
015372 000240 NOP 
015374 012706 001100 MOV AMSTACK,SP ;LOAD THE STACK POINTER 
015400 137 001276 MOV $BASE ,RO RO = UNIBUS ADDRESS 
015404 013701 001466 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
974 015410 012737 17 001226 MOV #17,$TESITN >: SET TEST NUMBER IN APT MAIL BOX 
975 015416 737 054674 JSR PC,CNTCLR :;GO CLEAR CONTROLLER 
976 015422 010037 00113 MOV RO, $BDADR ;SETUP REGISTER ADDRESS FOR TYPEOUT 
977 015426 062737 000030 001136 ADD ARMSN , $BDADR 
ore 015434 012702 .000031 MOV #25.,R2 | ;READ RMSN 25 TIMES 
980 ;READ RMSN AND USE THE RESULT AS EXPECTED VALUE 
4h 015440 016037 000030 001140 MOV RMSN(RO),$GDDAT ;STORE RMSN AT S$GDDAT 
983 ;READ RMSN AND COMPARE WITH INITIAL VALUE 
984 015446 10$: 
985 015446 016037 000030 001142 MOV RMSN(RO) ,SBDDAT ;STORE RMSN AT $BDDAT 
986 015454 023737 001140 001142 CMP SGDDAT , $BDDAT 
987 015462 001401 . BEQ 20$ :BRANCH IF SERIAL NUMBER CONSISTENT 
ose 015464 104136 EMT 136 
990 >DECREMENT COUNT AND CONTINUE IF NOT DONE 
991 015466 20$: 
992 015466 005302 DEC R2 , 
993 015470 100366 BPL 10$ 





| | tala RMOS/3/2 DSKLS IST 1 


_- — ~ .. =. 
. 





? SERIAL NUMBER TEST 
994 015472 


$3 


06 
015512 012737 000020 


997 
998 
999 015520 005037 00114 
1000 015524 111137 001422 
1001 015530 042737 177770 
1002 015536 012737 1 
1003 015544 02 
1004 015546 006337 001450 
1005 
1006 
1007 015552 
1008 015552 004737 054674 
1009 015556 016037 
1010 015564 016037 2 
1011 015572 042737 177767 
1012 015600 001415 
1013 015602 0100357 001136 
1014 015606 062737 000014 
1015 015614 032737 000010 
1016 015622 001002 
1017 015624 104067 
1018 313088 000453 
1019 0156 

915630 104070 
1020 015632 000451 
1021 
10s6 
1023 015634 
1024 015634 013760 001422 
1025 015642 013760 001450 
10 O120ze 016037 14 
1027 015656 042737 177767 
1028 015664 023737 001140 
106? 015672 001410 
1030 015674 052737 000020 
1031 015702 001002 
yh 015704 104071 
1033 015706 000423 
1034 015710 

015710 104072 
1035 015712 21 
1036 
1037 015714 005737 001450 
1038 015720 001312 
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001226 


001422 


30$: 


sEND OF TEST 


Fo eee eee eee eee eee eS SEAR AAA AAAS AAA AAAANAAANAAAAAAAKARAAEAAAEES 


**TEST 20 


Wen De RASRRASRARAAAARERARARRARRRRR RAR RRA RARRARARRR RRA RARER RR RR ERSASSR ERS SS | 


CONTROL BUS PARITY DETECTION TEST 


TST20: 
= sSCOPE CALL 
MOV ASTACK,SP ;LOAD THE STACK POINTER 
MOV aR ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
MOV #20, STESIN 3;z:SET TEST NUMBER IN APT MAIL BOX 
:SETUP FOR FIRST TEST LOOP (NO ERROR) 
CLR SGDDAT 3’ PAR'' SHOULD BE ZERO 
MOVB (R1),RMCS20 ;SETUP RMCS2 VALUE 
BIC #*CUNTMSK ,RMCS20 
MOV #1,RMHRO INITIALIZE DATA PATTERN 
BR - 3SKIP INCREMENT FIRST TIME 
5$: ASL RMHRO sSHIFT TO NEXT PATTERN 
pci ean AND VERIFY THAT ‘'PAR'’ IS RESET 
JSR PC,CNTCLR 3;GO CLEAR CONTROLLER 
MOV RMER1 (RO) , $BDDAT : STORE RMER1 AT S$BDDAT 
MOV RMER2 (RO) ,RMERZI ;STORE RMER2 IN INPUT BUFFER 
BIC #“CPAR ,SBDDAT sDID ‘PAR*’ RESET? 
BEQ 20$ svEs!! 
MOV RO, $8BDADR ;SETUP REGISTER ADDRESS 
ADD #RMER1,$BDADR 
BIT ADPE ,RMERZI :1S *‘DPE*’* SET?? 
BNE 10$ sVES!! 
EMT 67 
BR 50$ . 
10$: 
EMT 70 
BR 50$ 
_ TEST PATTERN AND VERIFY ‘PAR'’ STATUS 
MOV RMCS20,RMCS2(RO) sLOAD RMCS2 
MOV RMHRO,RMHR(RO) ;LOAD RMHR 
MOV RMER1 (RO) , SBDDAT :STORE RMER1 AT S$SBDDAT 
BIC #“CPAR ,SBDDAT 
CMP SGDDAT , $BDDAT 71S ‘PAR*’ CORREC/?? 
BEQ . 40$ sYES! ! 
BIT #PAT,RMCS20 : SHOULD ‘PAR’' BI: SET? 
BNE 30$ s¥@3! ? 
EMT 71 
BR 50$ 
30$: 
EMT 72 
BR 50$ :SKIP TO NEXT 
:GO TO NEXT PATTERN 
40$: TST RMHRO :IS DATA PATTERN COMPLETE?? 
BNE 5$ . —3NO!! 


SEQ 0716 
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T20 CONTROL BUS PARITY DETECTION TEST 
1039 07 2766 032737 000020 001422 BIT #PAT .RMCS20 21S TEST COMPLETE?? 
1040 015730 001012 BNE YES!! 
1041 :SETUP FOR SECOND TEST LOOP (ERROR) 
1042 015732 052737 000020 001422 BIS #PAT .RMCS20 TURN ON BAD PARITY 
1043 015740 012737 000010 001140 MOV #PAR , SGDDAT [EXPECT ERROR 
1044 015746 012737 000001 001450 MOV #1. RMHRO INITIALIZE DATA PATTERN 
MS 015754 000676 BR 6$ :START LGOP 
1047 015756 50S: - ;END OF TEST 
1049 SEES OIOIRIII ISIS III OISISIDIISISISISIIDIOIOIOISIIIDIOIISIIOIIDUIDIDS 
SSTEST 21 CONTROL BUS PARITY GENERATION TEST 
DOI III IISIII IIIS II IOI IOI IISIUIOIIOIIIIUI UIUC IO IO 
015756 TST21: 
015756 000004 . SCOPE sSCOPE CALL 
15760 000240 ' NOP 
015762 012706 001100 MOV A#STACK,SP ;LOAD THE STACK POINTER 
015766 013700 001276 ‘ MOV $BASE ,RO :RO = UNIBUS ADDRESS 
615772 013701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
1050 015776 012737 000021 001226 MOV #21,$TESTN >; SET TEST NUMBER IN APT MAIL BOX 
1051 :SETUP FOR TEST (NO ERROR) 
1052 016004 012737 000001 001450 MOV #1 ,.RMHRO INITIALIZE DATA PATTERN 
1053 016012 005037 001140 CLR $SGDDAT MCPE SHOULD BE ZERO 
eee 016016 000402 BR 20$ DONT SHIFT FIRST TIME 
1056 ;SHIFT DATA PATTERN 
1057 016020 10$: 
1058 016020 006337 001450 ASL RMHRO 
1059 016024 > @Q8: 
1060 016024 004737 054674 JSR PC, CNTCLR :;GO CLEAR CONTROLLER 
1303 016050 013760 001450 000036 MOV RMHRO,RMHR(RO) ;LOAD RMHR 
1063 | ; TRANSFER DATA TO RH, VERIFY NO ‘'MCPE'’ ERROR 
1064 016036 016037 000036 001374 MOV RMHR (RO) ~RMHRI ;STORE RMHR IN INPUT BUFFER 
1065 016044 016037 000000 001142 MOV RMCS1(RO), SBDDAT :STORE RMCS1 AT SBDDAT 
1066 016052 042737 157777 001142 BIC #“CMCPE, $BDDAT ; WAS BAD PARITY DETECTED?? 
1067 016060 001402 BEQ 30$ ~° NO! ! 
1068 016062 104073 EMT 7 
1b 016064 000403 BR 40$ 
1071 ;GO TO NEXT PATTERN 
1072 016066 308: 
1073 016066 005737 001450 TST RMHRO . _ ;DONE ALL PATTERNS?? 
1074 016072 001352 BNE 10$ zNO!! 
14 016074 40$: sEND OF TEST 
1077 SIO IOI IS ISI III IO IOIIUIIOIUIOIIOIIDIISIUIIOIIUIOIUIOIOIOIOIOIOI 
i*TEST 22 RMDA,RMDC FAULT TEST 
DOI III IO III IOIIUIDIIOIIUIIOUIOIOIIDIOIIUIOIDIDIDIOIDIDINIO 
016074 TST22: 
016074 000004 SCOPE :SCOPE CALL 
016076 000240 NOP 
016100 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
016106 013700 001276 MOV $BASE ,RO ;RO = UNIBUS ADDRESS 





ee ee 
Se ee ee ee 


RMPBO RMOS/3/2 DSKLS TST * 
RMD A 


MOC FAULT TEST 


016110 
016114 


1078 
1079 016122 


Qooo0o0og 
ae ek ek a oh oh wd oh ot 


SSESSERERERSFSESESS 


~~ —@.~8 3 «2 = «2 2) 4 ot 2 


g 


RIO rons 


oOo OCOOOoOOo 
Oo 
RE KELLER 
Nm 


ww 
NmO 


NES 


==5 
RON 


—t mt lt lt lt lt ll lt lly ell ell lly lt ally ly elt ily 


REEKS 


SSBNAA RAVASSBVUSARAVSS 
goose 
we] 
nw 


nd ad and and nl nd 
watebubababah abedbababadadadadadaBadab<d dad 
OOOOOoOOCOoOoO COCCOOOCOCOO 
aantieietabataiedah adatd dada ad ad ddd 
PAAEAAAOSASO HAO 


™N 
7 
S 
Or 


013 
0127 : 


004737 


ooo 
ad aud ad 
mn 
+: 


oS 
—s 
3 
Ww 


o— 
NEN 
os 


oN 
33 


Tu 
NN WAN 


fw—, 
~e& 


RIS 
— | 
No 
WIAA 


001466 
WOO022 


054676 
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; “, "STQUE.® zR? = POINTER TO DEVICE 
00722¢ "O, #22. Sésty z2SE7? TEST NUMBER IN APT MAIL BOX 
JSR PC LONTCLA 7G0 CLEAR CONTROLLER 
sWAl7E JEROS, "HEN ONES IN RDA RMDC-READ AND ‘EST FOR S-A-0 
000006 %s #0 RADA RO) :LOAD RMDA 
0000 34 a. #0, RDC (RO) sLOAD RMDC 
90000 “Oy #7, RMDA(RO) = LOAD RMDA 
gone 5 Os a=" .RMDC RO) LOAD RMDC 
007 "Oy RMDA(RO) RMDA! : STORE RMDA IN INPUT BUFFER 
901372 "O, RMD. (RO) RMDCI ;STORE RMDC IN INPUT BUFFER 
001 8ae = a=" .RMDA! 1s ay REGISTER ALL ONES?? 
-¥ 
OO7 872 @is BUND RAMOS! SE? UNUSED BITS 
307 372 a 4 a=" AMO! 
Bis "Os ZVES!: 
¢™- @2 
"os: 
oF @eeeeeeece ee seeeeceeeecesceseeeeeeeeeeeneeee eee aeaeeeaeaerwraeenaanaaeeneeaeeanane 
peres? 23 DISK ADDRESS TRANSFER TEST 
JF PSSSSSSSSSHSSSHSSSSSSHSSSSSHSHSSSHHSHHHEHEHHHHHEHERAARHARHEREE ERE AES 
"3°23: 
S° OPE 7SCOPE CALL 
wor | 
—, @stacn Se :LOAD THE STACK POINTER 
iy $AASE 80 *RO = UNIBUS ADDRESS 
my "STO 1 321 = POINTER TO DEVICE 
307226 *, @23.$7ESTN = :SET TEST NUMBER IN APT MAIL BOX 
LR we? :R3 = ERROR INDICATOR ; 
isk PO LONTOLR :GO CLEAR CONTROLLER 
pele ONES IN DA THEN WRITE ZEROS, READ BACK AND CHECK FOR S-A-1 BITS 
"Oy enim) LOAD RMDA 
OCDO4 my $0, ROD AK LOAD RMDA 
001742 Oy EDACRO) , MeeoDat =STORE RMDA AT $BDDAT 
7 7S? $ADDAT ; 
BEC 108 
C.R SGDDAT 
“Ov RO, SBDADR 
0017 % aod @RIDA, SBDADR 
BIS #AITO,R3 SET ERROR FLAG 
pyeite JEROS IN RMDA, THEN WRITE. ONES. READ BACK AND CHECK FOR S-A-0 BITS 
Dy #0, RMDA(RO) LOAD RMDA 
000006 Oy a-1 RMDACRO) LOAD RMDA 
00114 Oy RMDA(RO) .SBDDAT -STORE RMDA AT $BDDAT 
$7777 mp SADDAT .#-1 
BE 208 
001740 Ny #-1 SGDDAT 
My RO, SADADR 
0017 34 ADD #RMDA, SBDADR 


SEQ O11 


CZRMPBO RMOS/3/2 DSKLS TST 7 
123 «DISK ADDRESS TRANSFER "ES" 


122 0 
11235 016406 
| 1124 
1125 016412 
1126 016414 
1127 016416 
| 1128 016422 
pores 
1129 0164 
| 4180 016634 
1131 016442 
1138 016446 
ae 016450 
1134 016454 
1135 016460 
1136 016466 
1137 016670 
1138 016472 
1139 016676 
1146 
1161 
016474 
016476 
016476 
Beane 
16504 
016510 
016514 
1142 
1143 016522 
1144 O16368 
1145 0165 
1146 016534 
1147 016540 
1148 
1149 
1150 016546 
13 ees 
1138 016590 
1154 Boete 
art 165746 
1189 
1158 016600 
1159 916600 
1160 016606 
11¢3 Srady: 
1168 016686 
1164 Mra} 
1165 0166 
1166 
1167 
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MACRO 66.0 £m hPRRMB® 07:2 26:25 Pact 
emy 27 
— rT Rs ;SET ERROR FLAG 
see lTE A SmISTING *° BIT PATTERA IN RMDA, READ, 
.$: r$? x sOMiT git TEST IF ANY ERROR 
BNI 508 
308 . #1 82 sR2 = TEST PATTERN 
G00004 “Oy #0 RDA‘ RD) ; LOAD RMDA 
My Re, RMDALRO) LOAD RMDA 
O07 742 1. eh | a $BDDA" : STORE RMDA AT S$ADDAT 
-_- SADDA’ 
BES 40s 
Os G2. $GDDA’ 
a Oa BO, $BDADS 
C11 ADL BRMDA , SBDADA 
em éc 
4°$: AS. a2 jSemiFT TO NEXT BIT 
sai stub 325 > CONTINUE IF R2 NOT ZERO 
‘ fF SSSSSSHSSHSSHSSHSSHSHSSSSHSSSSSSSSHSHSSSHHSASHHSSHHARAEAAKRAERAARHERAHREKRARARES 
eres? * DESIRED CYLINDER TRANSFER TEST 
og PASS SSSHSSHSSHSHSSSSHSSSSHHSSHSSSHSSHSHSSSHHSHSHHRAAAHARATAAAHATEEARAEEHKER 
"S$’ 26 
S¢ ORE ;SCOPE CALL 
NOP 
a OI @STACK SP SLQAD THE STACK POINTER 
fy SBASE 80 “RO = UNIBUS ADDRESS 
* i STQUE RY ;R1_= POINTER TO DEVICE 
C0126 Oy #26, STESTN 7: SET TEST NUMBER IN APT MAIL BOX 
.L8 as sRESET ERROR FLAGS 
ih PC CNTCLR :GO CLEAR CONTROLLER 
CLR. SGDDA! ;LOAD EXPECTED 
Oy RO, SBDADA ;LOAD REG ADDRESS 
0077 56 ADD BOM] 6. SBDADR 
Se TE ONES IN RMDC AND VERIFY THAT UNUSED BITS ARE ZERO 
yv @=-' RMDC (RO) 7LOAD RMDC 
007142 i $3) REDE (RO), aeeOAT ZSTORE RMDC AT $BDDAT 
0011462 Sit @°CRNUDC, SBDDA :CLEAR ALL USED BITS 
SEO 5$ ;BRANCH IF NO ERROR 
fm! 134 
SiS ITO, R* ;SET ERROR FLAG 
ih ONES IN RDC, THEN WRITE ZEROS, READ AND CHECK FOR S-A-1 BITS 
0000 34 be OF #-1 ,RMDC (RO) LOAD RMDC 
0000 34 “Oy #0, RDC (RO) ;LOAD RMDC 
007142 MOV RMDC (RO) SBDDAT ; STORE RMDC AT SBDDAT 
001142 SIC #INUDC .SBDDAT 7 CLEAR UNUSED BITS 
Fit aye “BRANCH IF NO ERROR 
BIS MBITO,R5 7SET ERROR FLAG 


ITE ZEROS, THEN ONES IN MDC, READ AND CHECK FOR S-A-0 BITS 





19 
135-23 


AND CHECK FOR STUCK BiiS 


SEQ 0119 


D110 
RMPBO RMOS/3/2 DSKLS TS? * MACRO 4Us. 00 (4-6 PRR—8" 07:26:75 PAGE 13-26 






CZ 
24 DESIRED CYLINDER TRANSFER "EST SEQ 0120 
1168 016640 108: 
1169 016640 012760 00000 C000 34 “Oy #0. RMDC (RO) ;LOAD RMDC 
1170 016646 012760 177777 O000% oI" a-) RMD. RO) ZLOAD RMDC 
1171 016654 016037 O000% 07°62 “0, RMD (RO) SBDDAT :STORE RMDC AT $BDDAT 
pee 016662 052737 17 001742 6:5 @INJOC .SBDDAT =SET UNUSED BITS 
1173 016670 012737 17777 9740 0, a@-1 .$GDDAT TLOAD EXPECTED Sek 
| 11746 016676 0235737 001165 O0* 142 cm $GDDA’.SBDDAT == 1S RMDC ALL ONES. 
1175 016706 001403 SEC 20s s¥Es :5 
1176 016706 104060 eur 40 
Mt 016710 052703 000002 ' gis wa 7? Re :SET ERROR FLAG 
1179 Fa ab Bi Iv TEST IF ANY ERRORS - 
1180 016714 20%: | 
1181 016714 005703 7S? 2 
a 016716 001026 art 408 
BS 016720 012702 90000" oP @* R2 :82 = TEST PATTERN 
1185 "Eo? SD * Tee SHIFTING ONE 87 
1186 016724 to§: 
1187 C16726 012760 OCO000 7000% —Cy @) RODE (RO) LOAD RMDC 
1188 016732 010260 000034 Oy RZ REDO CRO) ZLGAD RMDC 
1189 016736 010263 OF R2,R3 :R3 = EXPECTED RESULT 
1190 916760 042703 176000 aie BUND. 3 :CLEAR ANY UNUSED BITS 
1191 016744 016037 000036 O07*42 m0 apc (RS) $aDDAT = STORE RMDC AT $BDDAT 
Bb 016752 023703 001742 me SADDAT _& 
1195 016756 001404 G 59s 
1194 016760 010337 01's Oy R3,$GDDa" . 
1195 016764 106061 fur 4 : 
a 016766 . 000402 otal £08 sSKIP TO NEXT 
1198 016770 006302 Sos: AS. “ >SMIFT 70 NEXT BIT 
1300 016772 U01354 shut 308 > CONT INUE IF R2 NOT ZERO 
1201 016774 40% 
1202 
1203 5 LOPAMROSSHSHHSSO ETOH HEHE HSOH OL OHHOO HEH ERERR TREE EERETEREEE 
seTEs’? 25 ILLEGAL REGISTER TEST 
ss -*-@eeeeeeeec eee eceeeeoeee eee Cee eeee eee ee eeaeeeaeeeeeneaxaeaeeaekarxeaeareanraraee 
016776 *S$725: 
016774 000004 SCOPE :SCOPE CALL 
016776 $n0 yor 
017000 at 06 001100 MOY STACK SP ;LOAD THE STACK POINTER 
017004 0135700 001276 Oy SBASE RO :P0 = UNIBUS ADDRESS 
017010 013701 0014 MOV TST OUE R71 :R1 = POINTER TO DEVICE 
1206 017014 012737 000025 001226 MOY #25, $TESIN :SET TEST NUMBER IN APT MAIL BOX 
1205 017022 005037 001140 CLR $SGDDAT :°*ILR’* SHOULD BE ZERO 
06 017026 012702 900000 "OV #02 “R2=REGISTER INDEX 
1 {iL EAR AND VERIFY THAT ““ILR’’ STATUS IS ZERO 
1 017032 O$: 
1210 017170 004737 054674 3$R8 PC LCNTCLR 760 CLEAR CONTROLLER 
1211 0170 016037 000014 001742 Ov RMERT (RO) ,SBDDA :STORE RMER1 AT $BDDAT 
1 18 017044 042737 177775 O%11462 BIC CILR SBDDAT 
1213 017052 001411 SES 20$ BRANCH IF ILR IS RESET 
1214 017054 0059037 007146 cLe@ $GDDAT :SETUP GOOD DATA, REG ADR 





Se ee —_— ~——_ = 


— 1 
CZRMPBO RMOS/3/2 DSKLS TS? * MA SC wwe Se APRMWB? O°: 26:25 PAGE o25 
Te5 ILLEGAL REGISTER TES” SEQ 0121 


1218 017060 010037 007° % “, 9. S$BDADR 

1216 017 062737 (CO0C*s 207° % ADD B2RMER™  SBDADS 

1217 917072 1046064 aaah +4 

1349 017074 060550 a "408 

1220 pee 7S Tok REGISTER CINDER=R2) AND TEST ILR STATUS 

1221 017076 a | 

1358 017076 910003 “ HO.%3 ZR3=REG ADDRESS 

1225 017100 060203 ADL a2 RF 

1358 017102 0137646 00000 a ERaVEC = (SP) 72>PUSH ERRVEC ON STACK 
1 $ 017106 613746 000006 i FRRVECe2 <1 SP) 7 PUSH ERRVEC*2 ON STACK 
12 $ 017112 012737 017954 00006 ~. BOOS.ERAVEC =: SETUP FOR BUS TIMEOUT 
1227 0171 012737 000 O00 a MPRE ERR VEC eZ 

1228 017126 005004 — we ZRS=REGISTER VALUE 

1289 0171 022702 O0001C > wears 2 R2 

1230 017134 901001 ta'st 0 

1231 017136 111106 “ mt) ms ZSELECT DRIVE IF RMCS2 
1232 017140 010613 7s: ~, Re, (RE) swRITE TEST REGISTER 
1233 017142 012637 90008 a (SP 0 ERR YEC oe? 7zPOP STACK INTO ERRVEC+2 
1S%e yar 012637 OCO00s ~, (Sie ERR VE <oPO0P STACK INTO ERRVEC 
1235 017152 000416 oa 408 

1236 017154 012716 01774 - $ ae a.5$. (SP) >DUMMY RTI ADDRESS 
1237 017160 ar: ZRESTORE PRIORITY 

1238 017162 .‘$ 

017162 012637 000004 a GP) e ERRVEL eS? 7zPOP STACK INTO ERRVEC+2 
1239 017166 012637 OO0006 ~, SP ie Emm VEL 3sPOP STACK INTO ERRVEC 
1240 017172 020227 000044 /$ 2, MRME CO sWERE ALL REGISTERS READ?? 

12461 017176 101003 »:! sae | VES! ! 
1$e¢ 017200 010337 00'' % a #? $80ADe 

1245 017206 106074 tue ‘ 

Soe 017206 000503 °°$: a5 7408 

1246 017210 a * & 

OI sie 016037 O96 OC %ee Ny WME RS (RO)  BRDDAT :STORE RMER1] AT $BDDAT 
1247 017216 ¢5 et 7777§) Wo be ar° #°° 1.8, $8004" . 
1248 EES + 023737 001140 K' tec - SGDDAT.SBDDAT IS ““ILR’’ Ox?? 

1249 017232 0014611 ie = a aos s¥ES': 

1250, 017234 010337 001174 %y &% §°MPO 7 SAVE ADDRESS 

1$2! 017240 032737 900002 O0°*42 Bi” #3. 8 $GDDA" 7SMOULD “‘ILR’' BE SET?? 

1 26 017266 001002 aid 7O$ 7VES!! 

1$8 017250 104065 pm’ 45 

1254 017252 00040! nto BOS 

1255 017254 "3: 

1256 017254 104066 fur tt 

1257 SAD VANCE 7D "HE NET REGISTER ADDRESS ; 
1258 017256 a7$: | 
1938 017256 062702 000002 ADD #2 Re _.0s INCREMENT INDEX 

1260 91 oebe 022702 900050 a. #50,82 " """: TIME TO TRY RH70 ? 

$0 017 101261 j 10$ :BRANCH JF NOT 

1 Oe 017270 103437 3.0 1108s :BRANCH IF ALREADY CHECKED 

1267 017272 0613746 000004 . MOY ERRVEC <1 SP) 72PUSH ERRVEC ON STACK 

1268 gies 013746 000006 i OF ERRVECe2,-(5P) 77;PUSH ERRVEC*2 ON STACK 
1269 017 . Hite 017400 000006 MOY #' 308 ,ERRVEC :SETUP FOR TIMEOUT 

1270 017310 012737 000300 000006 “Oy MPRE FERRVE To? 

1283 017316 052737 900002 001740 SIs #ILR$GDDAT :SET ILR 

1284 017324 012702 000054 My #54 2 - =START AT INDEX S54 IF RH70O WITH 22 REG 





LLL I Nt =~ 
————— OO I TD sp ee ae tig meme — 


CZ8MPBO RM0S/3/2 DSKLS TST * 


725 LEGAL 


~—~—- @ —§ ~@ «4 = = wr oD ot ee » 
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Pat 


REGISTER TES’ 
012760 001408 
016037 (00050 
O73? «17777% 
1002 
13°95 00005° 
1 900004 
012637 G0000< 
022702 900074 
1014 
012716 017604 
000002 


000004 
012637 WO0006 


004737 954676 
Y10037 0011%4 
012760 90000" 

737 054674 
000000 
177776 
601160 


a 


1790 


007276 


OOOO 
—— it <3 = oD 
PEER: 


~w 
AS 


007466 
000027 Ole 


s« See 


F 10 
s0~.0 we RGM eres PAGE © 5-26 
s Du BA° 7 AT4 RMCST ORO) sSET EXTEND BITS 
Ns SO;RO) ,RMBAE ! ZREAD THE EXTENDED BITS 
5:7 a 77774 RMBAEI = CHOP OFF 
ld 90s ; BRANCH IF RH70 WITH 22 REG 
a #50 .R2 OTHERWISE NOT A RH7O OR G70 WITH 32 REG 
-.$. be Or SP 0 ERRVEC +2 : 
“Os SP)e,ERRVEC 
* 26: #7682 sDONE ALL TESTS 
3 en 7.08 svES:: 
é.3: +~ ‘ 
358 OE 735§ :DUMMY RT] ADDRESS 
oY ary =RE STORE PRIORITY 
~“, (P 0 ERR YEC 7c POP STACK INTC ERRVEC 
a SP eo EREVEC ©2 sPOP STACK INTO ERRVEC+#2 
"20§: sEND OF TEST 


cg PAS SSSSHSSSSSSSHSSSSSSSHSSSHSSHSHSHHHHHSHHHKSHRAHSAHAARHAHRERARARAAARAEE 


seTES? 26 MESE’ GO Sv INI? TEST 


se PPP eeeeoceeesenseeecaseeseseseeoaeseeeescesceserenraeaekaneaekeekarnaekaennan 


7¢€ 7 Od 
, 


meen :SCOPE CALL 
: WOR 
“, a5 "ALK SP ZLOAD THE STACK POINTER 
mO, SBASE RCO :RO = UNIBUS ADDRESS 
—, "ST QUE LR? :R1 = POINTER TO DEVICE 
“, Ob STESIN -;SET TEST NUMBER IN APT MAIL BOX 
2$R POLONTCLR :G0 CLEAR CONTROLLER 
™, RO, $8D4DR :SETUP REGISTER ADDRESS FOR MSG 
S17 GO, INITLACIZE AND VERIFY THAT GO IS RESET 
“y B60 .AMCS1(RO) «= LGAD RMCSI 
oR BEL CNTCLR 260 CLEAR CONTROLLER 
“, asl S1 (RO) ,SBDDAT” :STORE RMCS1 AT SBDDAT 
ha @*° 50. S$BDDAT 
SES 9§ :BRANCH IF GO IS RESET 
“f $GDD47 | 
tur *z?7 
"O$: SEND OF TEST 
fC TOSS SSSSHSSHSHSSHSSHHSHSSHSSHSHHSHHHSHHSHAHHHHAHHHEHARAHAHRKERAAEEERAAEES 
e5ESS 27 DIAGNOSTIC MODE TEST 


Sr ee ere ee ee ee ee ee ee ee eee ae 


97 S°2? : 


22 SCOPE CALL 
my aSTACK SP -LOAD THE STACK PGINTER 


: :RQ = UNIBUS ADDRESS 
ST TS TGUE FR :R1 = POINTER TO DEVICE 
: >:SET TEST NUMBER IN APT MAIL BOX 


SEQ 012. 


a 
a ee 
i _e eee 


Se re er ee ee ee eee ae eee 


G 10 
ZRMPBO RMOS/3/2 DSELS "SS" * “a°RO 40%. 320 APRs 20:25 PAGE 73-27 
2? DIAGNOSTIC MODE "ES’ ; SEQ 012% 

1327 017549 O1 008s 00° * % - =_ ,S$6DAD8 SETUP REGIS"ER ADDRESS 
1322 017544 7 COOCZe KI ADL @OMMA  $BDADS 
1987 017552 $003 8 a? INITIALIZE ERROR FLAGS 
1325 INITIALIZE OND WERIEV THA’ “DMD? IS RESET ~ 
1326 017554 006737 054674 : Ss POLCNTCLR 760 CLEAR CONTROLLER . 
1327 017560 016037 OO00C24 X°*s< “, ae" (80) SEDDAT : STORE RMMR1 AT SRDDAT 
1328 017 062737 %77776 OC* ‘ec ean @* "DMD .SBDDA’ 
1392 017574 901403 Sf 5 ee | SBRANCH IF “DMD'' IS ZERO 
1330 017576 005037 00%%«4° Lf $aUDA" 
1 383 017602 164075. zur 75 
1334 7hE" AND BES5E7 “DAD USING REGISTER TRANSFER=VERIFY 'DMD'' NOT S-A-1 
1334 017604 *$: 
1335 017604 012760 00000! 00026 ~, SOMO RMR ERC)  ; LOAD RMMRI 
1336 017612 012760 :000000 0002s ae BO MMR (RO) 7L OAD RMMR1 
1337 017620 016037 O00026 8% %e2 a SMM ROD  SEDDA’ : STORE 2MMR1 AT $BDDAT 
1338 017626 042737 177776 Ste? tr @*( DMD .SBDDA’ 
1339 017634 001405 BED 203 SBRANCH IF DMD NOT S-A-1 
1340 617636 005037 0C1140 (.s $GDDA’ 
1341 017642 106076 ur 76 ) 
v4 017644 052703 00000" Is aero! 7SET ERROR FLAG 
1344 gHESET AND SET “DAD'S USING REGISTER TRANSFER-VERIFY ‘DMD'' NOT S~A-0 
1345 017650 2s: 
1346 017650 912760 O000CO 000026 Oy BO, REAR CRO sLOAD RMMRI 
1347 017656 012760 G0000" 0024 MO, SOD RMR RO) sLOAD RMMRI 
1348 017 016037 900026 O01"%4e ~~, weep (GO) $RDDAT : STORE RMMR1 AT $BDDAT 
1349 017672 042737 177776 00°°62 eae e°° DMD. SBDDAT 
1350 017700 001006 ostet es ;BRANCH JF DMD NOT S-A-0 
1351 017702 012737 O000CT BMt740 “ BOMD .$GDDA’ 
1352 017710 106077 pur 7? | 
\$87 017712 052703 900002 - 1 Pr ;SET ERROR FLAG 
1355 SIF NO PREVI QUS FRROR, TES’ FOR BIT INTERFERENCE WITH SHIFTING 
1356 ; tet Bi" CAT TERN 
1357 017716 '_$: ; 
1358 017716 005703 "S$? uy ANY ERRORS DETECTED?? ' 
1359 017720 001027 Be 60% : ra $e 
1360 017722 012702 900002 a OF MAT? Re :INITAILIZE DATA PATTERN 
1361 017726 4%: 

HEAL, 012760 000000 00026 my a0 RMT CRO) :. OAD RMMR1 
1362 0177 010260 000024 f “Oy Ae RMR TCROO~ <>. OAD RMMRI 
13635 017740 016037 000026 007%42 Wy RMR ORO) $EDDAT :STORE RMMR1 AT SRDDAT 
1364 017746 062737 377776 90° *62 PA @*° DMD , SBDDA! 
1365 017754 001407 mEO Sof - ;BRANCH IF DMD NOT SET 
1366 017756 010237 0011764 My RO, $TMPO : SAVE DATA 
1367 017762 010237 001176 Oy 22, $TmPO : SAVE DATA 
1368 017766 005037 901140 CLR $4Dpa" :DMD SHOULD BE ZERO 
1390 017772 104100 emr TOG 
1371 gsmse? "O NE’ DATA 7° AND CONTINUE TEST IF NOT DONE 
1376 017774 O$: 
1373 017774 006302 aS. Pa 
1374 017776 007353 met 47% 
1323 020000 «C$: END OF TEST 


eens 


3 4% 28 td od = ww) 4 2 4) 


tn ml mally lly ell ee ae a eed aed ws So oS Co 3 5 5 3 3 SS + 
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Mrororerosnroefer 


OCOoCoOOCCoO 
fw ns a 4 


s 
SIRS 


SS 


—_ —s —* 3) 2-4 - 1 —4 
SRERSGER 


VUOANE 


VIN, 
Ow! 


Sseseoee 
Rw =M anor 
3c Bese 
™s 333 


Ww 
™~ 
OOw 
Wren 
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16777? 
001160 
QO0O0 1 


900012 
177677 


001160 — 


2 
167777 
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VOT 162 


® 10 
":le:¢5 PAGE °3-28 


are - 


-, @eeececeveceseseeseceovescesesesoeoaeeeeaeeaeeeeaaeneancaetaeneeeeneeee 


-eES? 3 MOL 78S’ 
Ce ae a 
See SSCOPE CALL 
WO 
a, wc? aca SP :LOAD THE STACK POINTER 
Mm, SBASE BO :RO = UNIBUS ADDRESS 
“, *S7Que A? 7R1 = POINTER TO DEVICE 
me, alO.$7ESTN -:SET TEST NUMBER IN APT MAIL BOX 
Sh PC CNTCLR :GO CLEAR CONTROLLER 
“, wo, $BDADA SRO=REGISTER ADDRESS 
ano 1S, $BDADR 
a Qt :R3=ERROR FLAG 
CE’ DIAGNOSTIC MODE AND VERIFY THAT ‘MOL'' IS ZERO 
wy, eM) AMR CRD) «== (OAD RMMRT 
wy RMDS (RO) SBDDAT : STORE RMDS AT S$BDDAT 
Src a° "Or. . SBDDA’ 
BFS os 
a. $4D0a" 
‘wr 107 
BIS BO RS :SET ERROR FLAG 
i3f” MAINTENANCE UNIT READY AND VERIFY THAT "MOL'’ IS ONE 
Fae ale BOD .RMMRT ERO) = LOAD RMMR1 
my BOND MUR RR ORD) =LOAD RMMR1 
mo y RMDS (RO), SBDDAT :STORE RMDS AT $BDDAT 
BI: e*° M0. .SBDDA! 
Eg 208 
my amin .$GD04T 
ome 102 


vERIFY VOLUME VALID IS RESET AND 


27¢§: 
~~ = s 


5° OR BI" INTERFERENCE 

rs? m3 ZANY ERROR DETECTED?? 
nid 70$ s¥e3! 1 
Oy AMD SRD) SRBDDAT ; STORE RMDS AT $BDDAT 
Si° @*c yy $804" 
BES 25$ :;BRANCH IF vv RESET 
Cla $GDD4"° 
eur 135 
MO a@* Fe : INITIALIZE DATA PATTERN 
MOY #OMD ,RMMRTCRO) ;L0AD RMMR1 
MOY R2 RMMR TRO) :LOAD RMMR1 

.- Dy RMDS (RO) .SBDDAT ;: STORE RMDS AT S$BDDAT 
Bic a*°Me. ,$8DDAT 
CLA a3 sSETUP EXPECTED ‘MOL’ 
SI’ = MURR | 
BEG 


va) 
“ o$ 


Ee a 
- SS ee me ee ee ee +--+ —— 2 = 


SEO O1-4 


-_—s 


Ee ee — 


“ZRMPBO 8M05/ 5/2 DSALS 
750 MOL TES? 


1623 0202464 
ioe 020250 


020314 


020314 


on 
Freon sS 


OOO 
~~ 
Orr 


mou 
> 


Sac 
NE 

Rete 
WWwuwI~s 


e* fe. 


i> 


ab 2:25 PAGE 73-29 
sec 
BIS eat :°M0L"* SHOULD BE ONE 
2s a? $8004" s1S MO. GQK?? 
Si. SC sVES.: 
Ww, rae eee :SAvt TEST PATTERN 
m, 4% $cpDa’ 
gue 108 


7DONT SHIFT DMD 


;DONT TRUNCATE TEST 
SHIFT TO NEXT BIT 
;BRANCH IF DONE 
sKEEP DMD ON 

> CONTINUE 


zEND OF TEST 


;, Peeeeecssecvevscsosogsesecssossoscasosagadesaaaeaneneneankanaenkenaeaenasaan 
2 


,@76S" ®° 


Ss ° DO 2 
te id 20$ 

“. aM 8c 
As. a? 

StS "7 

Si. Ya 
— 508 

eti°E LOCe TES! 


,, Peeeseeeecvevesessecasecesosesseseseneasereeaeseaeenaenenanneenanne 


ae 
° 
er 


3 
/ 


° * 
, r 3 


—. SCOPE CALL 
a, @S TACK SP ZLOAD THE STACK POINTER 
*, SAASE 82 =RO = UNIBUS ADDRESS 
a, ’S TOQUE .R} 7R? = POINTER TO DEVICE 
ear ati $TESTN >:SET TEST NUMBER IN APT MAIL BOX 
“iR at :R3=ERROR FLAG 
ar nO, SADADE =SETUP REGISTER ADDRESS 
ade BRED S , SBDADK 
(LR $GDDA? :WRL SHOULD BE ZERO 
ea Pr LCNTCLR >GO CLEAR CONTROLLER 
[38° DIAGNOSTIC MODE AND VERIFY “WRL'’ IS ZERO 
ay SOMO RR ERO) -LOAD RMMRI 
Ay RMIDS (RO) $BDDAT : STORE RMDS AT $BDDAT 
air B*(iwRL SBDDAT 
aes "9s =BRANCH IF WRL IS ZERO 
815 #aAlTO,R3 -SET ERROR FLAG 
E 7 MAINTENSNCE WRITE PROTECT AND VERIFY ‘WRL'’ IS ONE 

". fiOv #DMD .RMMRT(RO) :LOAD RMMR1 
Oy 2DMD | MwP RMR (RO) :LOAD RMMR1 
“Oy «RBS (RO) .SBDDAT ; STORE RMDS AT S$BDDAT 
ai #* (WR. , SADDAT 
BNE =BRANCH IF WRL IS NOE 
ae wR. ,SGDDAT “WRL SHOULD BE SET 
IS #3]71,R? =SET ERROR FLAG 


;OUS ERROR, 


TEST FOR BIT INTERFERENCE ON *™MWP’’ 


J 10 


CZRMPBO RMOS/5/2 DSELS TST ° MARS flow. Sek RMB” Lo ercS PAGE 73-320 
3} WRITE LOCm ES" sEO 0126 
1470 ‘theres oo: 
1471 020666 005703 "S? at ZANY OTHER ERROR?? 
1472 020670 001045 o, aed 4 SYES:! 
yh 020672 012702 90000" Ws 8° R2 SINITIALIZE DATA PATTERN 
1475 -"SRNSSER DATS 'O RMMRT. READ RMDS AND VERIFY WRL 
| 1476 920676 Lin 
1477 020674 012760 0000" clUC2s “a BOM) .RMPARICRO) ;LOAD RMMR1 
| 1478 020506 010260 O00C26 “, 2 AMR TRO) 3LOAD RMMR1 
| 1479 020510 016037 000012 0° %*2 “, RAMOS (RO) SBDDAT : STORE RMDS AT $ADDAT 
| 1480 020516 062737 173777 90° °s<2 Sic a*C a, ,SBDDA' 7CLEARUP RECEIVED “WRL" 
1481 020526 005003 .* at 7GENERATE EXPECTED ‘WRL*' 
| 1482 020526 032702 0000°0 BI mae 42 
1483 020532 001402 SE 2 608 
1484 020534 052703 006000 BIS PA 23 ;WRL SHOULD BE SET 
1485 020540 920337 001'<c 08: a 2 83, $8004" 31S wRL OK?? 
1486 020544 001405 SiG sos re. te 
1487 020546 910337 907740 7, R3.$cDDa" 7 SAVE EXPECTED 
14688 020552 010237 001174 Oy R$ "MPO ;SAVE DATA PATTERN 
Me 620556 104106 pur "04 
1491 AD,AaANCE "O NEM" DATA 8)" 
1492 020560 “os: 
1493 020560 042702 00000" ae FIP A? DONT SHIFT DMD 
1494 020564 001002 i ned 408 
1495 020566 012702 00000" ey BMD Fe ;DONT TRUNCATE TEST 
1496 020572 006302 me | AS. a2 SHIFT DATA BIT 
1497 020574 001403 FS 708 EMIT IF DONE 
1498 020576 052702 000007 8:5 BOM FC 7KEEP DIAGNOSTIC MODE ON 
ir t94 020602 000735 ° Se Lis} CONTINUE TEST 
1501 020604 "8: END OF TEST 
1 ane | 
150 J [PPCM MSCS O SOLOS e EES OOH T TEER EEE ERAT RET EHEEE TREE ERHEREERRR EERE 
serves? 32 DRIVE FAULT TEST 
029604 "S$? he: | | . 
020604 000004 SCOPE :SCOPE CALL 
020606 000260 Or 
020610 012706 001100 a #STACK SP ;LOAD THE STACK POINTER 
020614 013700 001276 wy BASE RO 7RO = UNIBUS ADDRESS 
020620 013701 001446 . mV TSTQUE RI :R1 = POINTER TO DEVICE 
1506 020624 012737 000032 O0'274 Ny #52. STESIN 7zSET TEST NUMBER IN APT MAIL BOX 
1505 020632 004737 054674 a. Dr CNTCLR :GO CLEAR CONTROLLER 
1238 020636 005003 cf a3 s INITIALIZE ERROR FLAGS 
1507 020640 010037 001134 an 8) RC, $BDADR 7SETUP REGISTER ADDRESS 
1508 020644 062737 000042 0011%4 ADD BRMER? , SBDADR 
13yP 020652 005037 001140 CiR $GDDAT 7“ DVC*’ AND “'UNS*’ SHOULD BE ZERO 
1511 7SET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT “DvC’’ IS NOT 
a4 STUCK OATOONE . 
15135 020656 012760 00000’ 000024 MOY SDD. RMMRICRO) ;LOAD RMMRI 
1514 0 Af 149 000000 900042 “Ov #0 ,RMER2 (RO) ;LOAD RMER2 
1515 020672 012760 000000 9000%4 MOV #0 ,RMERT (RO) LOAD RMER1 
1516 020700 016037 0000462 001742 MOV RMERZ(RO) ,SBDDAT >STORE RMER2 AT $BDDAT 
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@°c Dv  S8DDa’ :1S “Dvi"°* RESET?? 
‘OSs ;wEesi: 


10? : 
@Bl7O,R5 


>SET ERROR FLAG 
BAS .$GDDAT 


"oA? “UNS*’ IS SAME AS “DvC"° 


gmy 


RESET AND SET “MDF” 


AMER TRO)  SBDDAT sSTORE RMER1 AT $BDDAT 


@° UNS .SB0DA’ : 
eo +) all OK?? 

re: > ee. 
RO, SADADR SETUP REGISTER ADDRESS 
#RMER)  SBDADR 
®INS ,SGDDA’ ; SHOULD ‘UNS’ BE ON?? 
20s 7VES!! 
> ne 
508 | . 


", WERIFY THAT 'DvC’’ IS NOT S=-A-0. 


#DvC SGDDAT :DVC SHOULD BE ON 

SDMD RMT (RO) =LOAD RMMR1 

BOMD (MDF RMT (RO) ;LOAD RMMR1 

RMER2 (RO), SBDDAT >STORE RMER2 AT $BDDAT 
a*(DVC .SBDDAT 

408 ;BRANCH IF DVC IS SET 

RO, SBDADR [SETUP REGISTER ADDRESS 

ane R2.$BDADA : 

wAiT1 RE :SET ERROR FLAG 

$GDDAT [UNS SHOULD BE OFF 


TAT “UNS TS SAME AS “DVC’ 





a 7; CHANGE DvC TO UNS 
WINS .SGDDAT 

RMERT CRO) $BDDAT sSTORE RMER1] AT $B8DDAT 
#°C UNS. SBDDAT 

SGDDAT . SBDDAT 

70$ s;BRANCH IF UNS IS OK 
RO, S$BDADR >SETUP REGISTER ADDRESS 
MRMER' . SBDADR 

INS .SGDDAT 7 SHOULD UNS BE ON?? 
60$ Ves. ; 
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70$ 
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SEC 
ee 
1208 SBRANCH IF ANY OTHER ERRORS 
@ ,R2 ZINITIALIZE TEST PATTERN 
SDMD .RMPARICRO) ;LOAD RMMRI 
#0, AMER (RO) 7LOAD RMER2 | 
R22 RMPART (RO) 7LOAD RMR] 
RMERO(RO) ,SBDDAT ;STORE RMER2 AT $BDDAT 
@*CDVC.SBDDAY ;GET RESULTS 
SGUDAT 7SETUP EXPECTED 
MDF RZ 3WAS MDF SET?? 
90$ zNO!! 
#DvC, SGDDAT > YES=DVC SHOULD BE ON 
SGDDAT , SBDDA! 
1008 ;BRANCH IF DVC IS OK 
RO. $BDADR 7SETUP REGISTER ADDRESS 
BRMER? .SBDADR 
we 7 SAVE TEST PATTERN 


3 5elF 7 TO NEXT BIT POSTTION 


am. 2 :DONT SHIFT DMD 
#DMD 2 :DONT TRUNCATE TEST 
R2 s SHIFT 
"208 sEXIT IF DONE 
BOMD A 2 ;KEEP DMD ON 
£0$ : CONT INUE 
sEND OF TEST 
-~-@eeeearveaveee ee eoeeeee Ceeeee Ce eee eee eee eeaaeeezeeaeaaeaaeakzaazakzkaeaankeeaeeaennate 
SEEK ERROR TEST 
; [PP RCC ROCHE DORE O TOTES OORT OHA EEEREAERERHEEEEEEREERAREREERRR ERED 
sSCOPE CALL 
@STACK SP :LOAD THE STACK POINTER 
SE RO -RO = UNIBUS ADDRESS 
TSTOUE ,R1 -R1 = POINTER TO DEVICE 
#33, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
PC CNTCLR :GO CLEAR CONTROLLER 
RS “CLEAR ERROR FLAGS 
RO, $8DADR -SETUP REGISTER ADDRESS 
#RMER?, SBDADR 





MODE AND VERIFY THAT "“SKI*’ CAN BE RESET 
#DMD,RMMRI(RO) ;LOAD RMMRI 


#0 ,RMER2 (RO) ;LOAD RMER2 

RMER2 (RO), SBDDAT :STORE RMER2 AT $BDDAT 
#*CSK1,SEDDAT 

10s zBRANCH IF SKI IS RESET 

— :SKI SHOULD BE ZERO 


rr rc i es i ee es —--- <= 


| ™ 10 
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733 SEEK ERROR TES . SEQ 0729 
- 
be 021430 052703 00000' BIS #Bi7O.R3 7SET ERROR FLAG 
1622 7 SET MAINTENQSNCE SEEK ERROR AND VERIFY THAT ‘‘SKI** CAN BE SET 
| 1623 021434 "C$: 
1626 021434 012760 000001 000024 Oy DMD .RMMRI(CRO) :LOAD RMMRI 
5 021442 012760 000000 000042 a OF #0. a0 RAE ROC (RO) sLOAD RMER2 
1626 021450 012760 000620! 000024 MOV @DMD | MSER .RMMART (RO) ;LOAD RMMR 
1627 021456 016037 000062 G0'142 Oy RMER2 (RO). $BDDAT : STORE RE RZ AT $BDDAT 
021 042737 137777 007142 Sic #°C SK! ,$8DDAT 
1 021472 001005 Bane oe ;BRANCH IF or IS SET 
1630 021474 012737 040000 90°740 “Ov #SK 1 ,.SGDDAT 7CANT SET SKI 
103] 021502 052793 000002 1s #BIT7 RS 7SET ERROR FLAG 
1638 s1F NO PREVIOUS ERROR, CWECK FOR BIT INTERFERENCE SETTING MAINTENANCE 
1634 : SEEK £ RROM . ) 
1635 021506 208: 
1636 021506 005703 TS’ R3 a 
1637 021510 001051 thE 70$ ;BRANCH IF ANY OTHER ERRORS 
loss ost atg 012702 000001 _ “Ov a) ,R2 ZINITIALIZE TEST PATTERN 
1640 021516 012760 000001 000026 Ov OMD .RMMRICRO) ;LOAD RMMARI 
1641 BS! 263 012760 000000 000042 Oy #0, RMER2Z (RO) ;LOAD RMER2 
1642 021532 010260 000024 Ov RZ, RMART (RO) :LOAD RMMRI 
16435 021536 016037 000062 001142 MOY RMER2(RO),$BDDAT 7STORE RMER2 AT $BDDAT 
1644 021544 062737 137777 003762 BIC @*C SKI, S8DDAT 3GET Sk] STATUS 
1645 021552 005037 001140 (LR SGDDAT ;SETUP EXPECTED RESULT 
1646 021556 032702 000200 817 AMSER .R2 
1647 021562 0014 BEG 40$ 
1648 021564 052737 040000 007140 SiS #SK1,$GDDAT 3SKI SHOULD BE ON 
1649 021572 023737 001140 0017462 40%: CMP SGDDAT , SB8DDAT 
1650 021600 0014 BEG 50$ ;BRANCH IF SKI IS OK 
1651 021602 010237 001176 MO R2,$TMPO ; SAVE TEST PATTERN 
165¢ 021606 104120 EMT 126 
1654 "ADVANCE TEST PATTERN IN R2 
1655 021610 «Sos: 
1656 021610 042702 000001 SIC #OPD -R2 :DONT SHIFT DMD BIT 
1657 021614 001002 : BNE 60$ 
1658 021616 012702 000001 MOV #OMD RZ ;DONT TRUNCATE TEST 
1659 021622 006302 45%: ASL R2 SHIFT TO NEXT BIT 
1660 021624 001403 BEG 70$ sEXIT IF DONE 
1661 021626 052702 000001 BIS #DMD .R2 sKEEP DMD ON : 
1o96 021632 000731 feted 30$ 7 CONTINUE TEST 
1664 021634 70$: sEND OF TEST 
1665 
1666 LL OPPO MMAR REESE OTHE SOREL E THEATRE EEEEAEARERRE RETARD 
seTEST 34 PIP TEST 
FF OTC O AOR HAAOSHASHHHAAAHSEEAEAAARAARAEHARAARARAARAERAAAEAARARAHEN EERE 
021634 $734: 
021634 000004 SCOPE ;SCOPE CALL 
021636 240 NOP 
021640 012706 001100 MOV #STACK,SP s;LOAD THE STACK POINTER 
021644 013700 001276 MOV SBASE ,RO “RO = UNIBUS ADDRESS 
021650 013701 001466 MOV TSTQUE ,R1 :RI = POINTER TO DEVICE 
021654 012757 000034 001226 MOV #34, $TESITN ;SET TEST NUMBER IN APT MAIL BCX 
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| PiP fT SEC 0150 
| 1667 
1668 021662 004737 (54674 JSR PC CNTCLR 7GO CLEAR CONTROLLER 
| 1669 021666 005003 CLR RZ RESET ERROR FLAGS 
| 1670 021670 010037 001136 be OP RO, SBDADR :SETUP REGISTER ADDRESS 
| 1671 021674 062737 000012 0011%6 ADD BRMDS , SBDADR 
: SET MAINTENANCE ON CYLINDER ‘“MOC’’ AND VERIFY THAT ‘'PIP’’ CAN BE RESET. 
1674 021702 012760 000001 000024 “OV DMD. RMMRI(RO) -:LOAD RMMR1 
1675 021710 012760 000401 00024 MOV #DMD ' MOC .RMMART (RO) ;LOAD RMMR1 
1676 021716 016037 000012 001742 MOV RMDS(RO) SBDDAT :STORE RMDS AT $BDDAT 
1677 021724 062737 157777 001142 BIC @*C(PIP.$BDDAT 
1678 021732 001405 REO 10$ sBRANCH IF PIP IS RESET 
1679 021734 005037 001140 TLR SGDDAT 
1680 021740 104121 EMT 121 
1e> 021742 052703 000001 BIS #RITORS :SET ERROR FLAG 
1683 sRESET MAINTENANCE ON CYLINDER AND VERIFY THAT 'PIP’’ CAN BE SET 
1684 021746 108: 
1685 021746 012760 000001 000024 MOV #DMD RMMRICRO) :LOAD RMMRI 
1686 021754 016037 OCO012 001142 Ov RMDS (RO), SBDDAT ;:STORE RMDS AT S$BDDAT 
1687 021762 042737 157777 0071462 BIC a*CPIP,S$8DDAT 
1688 021770 001006 Bye 208 :BRANCH IF PIP IS SET 
1689 021772 012737 O20000 001145 _ MOV #PIP SGDDAT 
1690 022000 104122 EMT 122 
1) 022002 052703 000002 8:5 #6171, R3 :SET ERROR FLAG 
1693 s1f NO PREVIOUS ERROR, TEST FOR ADJACENT BIT SETTING ‘MOC'' 
1694 022006 cut: 
1695 022 005703 TST am 
1696 022010 001046 Brie 70$ 7BRANCH IF ANY PREVIOUS ERROR 
is +4 022012 012702 000001 : MOV #1 ,R2 : INITIALIZE TEST PATTERN 
1699 -wITE THE TEST PATTERM, CHECK MOC USING PIP 
1700 022016 308: 
1701 022016 012760 000001 000024 § »* MOY ADMD RMMRICRO) ;:LOAD RMMARI 
fas beeder 010260 000024 MOV R2, RMMART (RO) 7LO4D RMMRI 
1703 022030 016037 000012 001142 MOV RMDS (RO). SBDDAT : STORE RMDS AT S$BDDAT 
1704 022036 042737 157777 001142 BIC #°*CPIP.SBDDAT =:GET PIP STATUS - 
1705 022044 005037 001140 | CLR SGDDAT :SETUP EXPECTED RESULT 
1706 022050 032702 000400 7 git MOC RZ 
1707 022054 00100 BNE 40$ 
1708 022056 052737 020000 001140 — 81S #PIP .SGDDAT :PIP SHOULD BE SET 
1709 022064 023737 001140 001142 «2S: CMP SGDDAT , S$BDDAT 
1710 sole 001493 Tae 50s :BRANCH IF PIP OK 
. 074 010237 001174 Ph. =e R2,$1MPO SAVE TEST PATTERN 
1716 022100 104123 EMT 123 
1714 sADVANCE THE TEST PATTERN 
1715 Og6 108 508: 
1716 8 102 042702 00000! . BIC #DMD ,.R2 ' sDONT SHIFT DMD 
1717 $6108 001002 BNE =—s-—sdG OOS 
1718 022110 012702 000001 - MOV #DMD ,R2 :DONT TRUNCATE TEST 
1719 022114 00630 60$: ASL *R2 :SHIFT BIT | 
1760 116 001403 BEQ 70$ EXIT IF DONE 
1721 022120 052702 000001 BIS #DMD RZ :KEEP DMD, ON 
1756 022124 000734 — 30$ :CONTINUE TEST 





ee 


B 11 
2 OSKLS TST 1 MACRO V046.00 4-APR-81 01:24:25 PAGE 13-35 


| CZRMPBO RMOS/3/ 
| 7 PIP TEST ” 
ites 022126 70$: END OF TEST 
1726 FLERE RAR EAA ERASE AAEAAAAEEAREARERERERERREH KARR EERE REE Ee 
=*TEST 35 EBL TEST 
FF TTA AAA AAEAAAERAAARAAEAAAAAAEAAAAAEARARAARARAAARARRAERRARAKRRE HERE E Ee 
022126 TST35: 
022126 000004 | SCOPE SCOPE CALL 
0221 000 NOP 
0221 Ole 001100 MOV #STACK,SP LOAD THE STACK POINTER 
0221 013700 001276 MOV SBASE ,RO RO = UNIBUS ADDRESS 
022142 013701 001466 MOV TSTQUE,R1 R1 = POINTER TO DEVICE 
9707 022146 O12 35 001226 MOV #35. $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
1728 022154 005003 CLR R3 RESET ERROR FLAGS 
1729 022156 010037 001136 MOV RO. SBDADR :SETUP REGISTER ADDRESS 
1 022162 062737 000024 001136 3 ADD #RMMR 1. SBDADR 
ie} 022170 005037 001140 CLR SGDDAT ;SETUP EXPECTED RESULT 
1938 CLEAR AND VERIFY THAT END OF BLOCK IS RESET 
fe» 022174 004737 054474 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
1735 022200 016037 000024 001142 MOV RMMR1(RO),$BDDAT STORE RMMR1 AT SBDDAT 
17% Ogee06 042737 157777 001142 BIC #*CEBL.S$BDDAT 
fe U4 0 $ 14 001403 BEQ 10$ :BRANCH IF EBL IS RESET 
1738 022216 104124 _ EMT 124 
i + 022220 052703 000001 BIS #BITO,R3 :SET ERROR FLAG 
1741 :SET AND RESET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1. 
beg 022224 10$: 
174 Oe 4 012760 000001 000024 MOV #DMD,RMMR1(RO) =:LOAD RMMR1 
1744 0 012760 020001 000024 MOV ADMD ' DEBL ,RMMR1 (RO) :LCAD RMMR1 
1745 022240 C12760 000001 000024 MOV A#DMD,RMMRI(RO) :LOAD 1 
1766 022246 016037 000024 001142 MCV RMMR1 (RO). $BDDAT :STORE RMMR1 AT $BDDAT 
1747 022254 042737 157777 001142 BIC #*CEBL , $BDDAT 
1748 6 62 001403 BEQ 20$ BRANCH IF EBL IS RESET 
1749 O § 104125 EMT 125 
i 022266 052703 000001 BIS #B1TO,R3 >SET ERROR FLAG 
eee onaer gRESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-0 
1754 022272 012760 000001 000024 MOV ADMD, RMMR1(RO) ;LOAD RMMRI 
1755 0 012760 020001 000024 MOV ADMD ! DEBL , RMMR1 (RO) LOAD RMMR1 
1756 0 016037 900026 001142 | MOV RMMR1 (RO), $BDDAT STORE RMMR1 AT SBDDAT 
1757 14 042737 157777 001142 BIC .° #*CEBL,SBDDAT 
1758 2 901006 BNE $ '  sBRANCH IF EBL IS SET 
1759 0 4 0127 020000 001140 MOV #EBL , SGDDAT 
1760 8 104126 EMT 126 
fg 3 052703 000002 BIS #BIT1,R3 :SET ERROR FLAG 
1588 -IF NO PREVIOUS ERRORS, TEST FOR ADJACENT BIT INTERFERENCE ON ‘DEBL’’. 
1764 022340 30$: 
1765 8 5 005703 TST R3 
1766 2 001042 BNE 70$ :BRANCH IF ANY ERROR 
ee 2344 012702 000001 MOV #1,R2 > INITIALIZE TEST PATTERN 
1769 WRITE, READ AND VERIFY THE TEST PATTERN IN R2 
1770 022350 40$: 
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5 EBL TEST SEG 0152 
1771 > O5Sae0 012760 000001 000024 MOV 4DMD.RMMR1(RO) <:LOAD RMMRI 
1772 022356 010260 000024 MOV R2, RMMR1 (RO) s;LOAD RMR 
1 022 016037 000024 001142 MOV RMFR71 (RO) .SBDDAT sSTORE RMMR1 AT SBDDAT 
1774 022370 7 157777 0Q1142 BIC #“CEBL. SBDDA T 
1775 022376 010 ; MOV R2,R3 GENERATE EXPECTED RESULT 
1776 02 400 042703 157777 | BIC #°CEBL.R3 
1777 022604 020337 001142 CMP R3, $BDDAT 
1778 Os 410 00146 BEQ 50$ :BRANCH IF EBL IS OK 
1779 022412 010337 001140 MOV R3.$GDDAT ;SAVE EXPECTED RESULT 
1780 022416 010237 001174 MOV R2.STMPO SAVE TEST PATTERN 
1781 022422 104127 EMT 127 
18 sSHIFT TO NEXT BIT POSITION 
1784 0224624 50S: 
1785 Oserge 042702 000001 BIC ADMD ,R2 ;DONT SHIFT DMD 
1786 022430 00100 BNE 60$ 
1787 022432 012702 000001 MOV #DMD,R2 - :DONT TRUNCATE DMD 
1788 022436 006302 ) 60$: ASL R2 -SHIFT TO NEXT BIT 
1789 022440 001403 BEQ 70$ sEXIT IF DONE 
1790 622442 052702 000001 BIS #DMD .R2 sKEEP DMD ON 
a4 022446 000740 BR 40$ ; CONTINUE TEST 
1538 022450 70$: sEND OF TEST 
179% | ; 
1807 
1808 b SERA EEEKKEEEEKEREKREEKEEEKEEREKEERERKEKREEKEEKERERETER 
:*TEST 36 LAST SECTOR, LAST TRACK TEST 
sn ke Na , < s TRANSFER TEST PATTERN. TO RMDA THEN VERIFY LAST SECTOR ‘LS'* AND LAST 
7*SECTOR/TRACK “LST'' FOR EACH TRANSFER. THE TABLE BELOW LISTS “THE VALUE 
:*OF RMDA FOR WHICH LS AND LST ARE SET. 
2 18 BIT MODE 16 BIT MODE 
:* LS = — XXx035 XXX037 
; +RMO2/03 ~ LST= 002035 002037 
**RMOS = LST= 011035 011037 
= go CAAAAAAAAAAAAAAAAAERARERAAARAERRAAARERARAAEARREKHEKRARAERAAERERE EE 
022450 TST36: 
022450 000004 SCOPE | ; SCOPE CALL 
022452 000240 NOP 
022454 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
0 460 4 700 001276 MOV SBASE.RO ° -RO = UNIBUS ADDRESS 
$5056 13701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
1809 0224 012737 000036 001226 MOV #36,$TESTN =: SET TEST NUMBER IN APT MAIL BOX 
1810 022476 905008 CLR R2 ; INITIALIZE TEST PATTERN 
1811 5 ate 001136 MOV RO, SBDADR . > SETUP REGISTER ADDRESS 
1818 0627 7 000024 001136 ADD #RMMR1 , SBDADR 
18135 022512 sf 37 001444 CLR RMOF 0 :START IN 18 BIT MODE 
1814 516 13 Mi 001334 023006 MOY LSTRK,80$ s;SETUP LAST TRACK AND 
1815 3 4 112737 000035 023006 seal MOVB #035,80$ *LAST SECTOR (29.) 
1817 022532 004737 054674 JSR PC.CNTCLR :GO CLEAR CONTROLLER 
1818 5 013760 001444 000032 MOV RMOFO.RMOF(RO) cL 
1819 544 016037 000032 001176 MOV RMOF (RO), $TMP1 ;:STORE RMOF AT STMP1 
1820 022552 010260 000006 MOV R2,RMDA(RO) LOAD RMDA 
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| C RMPBO RMOS/3/2 DSKLS IST 1 MACRO v04.00 
LAST SECTOR, LAST TRACK TEST SEQ 0133 
1821 0 $037 24 001362 MOV RMMR1 (RO) .RMMR1I ;STORE RMMR1 IN INPUT BUFFER 
18s¢ 0 ue Col 001142 MOV RMR 1. SBDDAT :VERIFY “LS** 
1 0 1 001142- BIC #*CiS, -SBDDAT 
1826 0 001140 CLR SGDDA GENERATE EXPECTED ‘LS"' 
1866 9 010000 001444 BIT SEMT16,RMOFO 316 BIT MODE ? 
1827 0 123702 023006 CMPB ~=._-« B0$.R2 3:18 BIT MODE LAST SECTOR ? 
1 0 001007 BNE 35$ :NO !! 
94 0 000403 BR 30$ 
: e e L : 
1830 0 123702 023006 20$ CMPB = 80$.,R2 16 BIT MODE LAST SECTOR ? 
1831 0 00100 , BNE 35$ :NO !! 
183 0 63 052737 001140 30S: BIS #LS,$GDDAT LS SHOULD BE ON-16 BIT MODE 
1834 022649 023737 001140 001142 35$: CMP S$GDDAT , SBDDAT 
1835 022646 001404 BEQ 40$ ;BRANCH IF LS IS CORRECT 
1S o58020 010237 001174 MOV R2,$TMPO :SAVE TEST PATTERN 
183 654 104130 EMT 130 
3 SK x 
Ht 022656 000454 BR 90$ SKIP TO NEXT 
1840 622660 013737 001362 001142 40S: MOV RMMR1I,$BDDAT :VERIFY ‘LST"' 
1841 02 2737. (177775 «2001142 BIC #“CLST,$BDDAT 
1848 022674 005037 001140 CLR $GDDAT : GENERATE EXPECTED "* sr" 
184 Oger 032737 010000 001444 BIT #FMT16,RMOFO 716 BIT MODE?? 
1844 022706 001 BNE 50$ sYES!! 
1845 Og 710 023702 023006 CMP 80$,R2 ‘ie air MODE LAST TRACK/SECTOR ? 
1846 022714 001007 BNE 65S 
1847 022716 000403 BR 60$ 
1848 022720 023702 023006 50$: CMP 80$,R2 :16 BIT MODE LAST TRACK/SECTOR ? 
Let 022724 001003 . | BNE 65% :NO !! 
1851 022726 052737 000002 001140 60$: BIS #LST,$GDDAT :LST SHOULD BE SET 
1838 0 37 023737 001140 001142 65$: CMP SGDDAT , $BDDAT 
1853 022742 001404 BEQ 70 
1854 022744 010237 001174 MOV R2,$TMPO :SAVE TEST PATTERN 
HT 022750 104131 EMT 131 
1328 022752 000416 BR 90$ :SKIP TO NEXT 
1858 :ADV ANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL 
1859 -18 BIT TESTS DONE. 
1860 022754 O$: 
1861 022754 005202 INC R2 : INCREMENT PATTERN 
1 ‘ 756 001265 BNE 10$ :CONTINUE IF NOT DONE 
186 760 032737 010000 001444 BIT #FMT16,RMOFO ; DONE 16 BIT TEST ? 
1864 7 001010 BNE 90$ :YES!! 
1865 770 012737 010000 001444 MOV #FMT16,RMOFO-* :DO ié BIT FORMAT TEST 
e ‘ rt MO ) 
1866 022776 112737 000037 023006 MOVB  #037,80$ :SE1 LAST SECTOR FOR 16 BIT MODE (31. 
+e 0 000652 BR 10$ 
18 9 023006 000000 80S: .WORD 0 :HOLDS LAST TRACK/SECTOR ADDRESS 
1871 023010 908°" 
1876 RRR REE REE EEE ERE EERE RRR REER EEE R EE 
«TEST 37 RMDA COUNT TEST 
CC RATER EARAAEAKEAEAEAAEAEAEAEREERKEAEERAERAAKEARKEAAAARRAAAARAARAREEE ERAS 
023010 1ST37: 
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—_ sSCOPE CALL 
MOV ASTACK,SP sLOAD THE STACK POINTER 
MOV SBASE ,RO :RO = UNIBUS AD 
MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
001226 MOV #37 .STESTN >: SET TEST NUMBER IN APT MAIL BOX 
MOV RO, SBDADR 7SETUP REGISTER ADDRESS 
001136 ADD #RMDA , SBDADR 
CLR RMOF O sSTART WITH 18 BIT FORMAT 
001740 MOV #1, $GDDAT :SETUP FIRST COUNT 
023462 MOV #29.,110$ =LAST SECTOR 


z INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT 
:SECTOR 0 AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS 


; -CLEAR THe MASSBUS 

; ~SET FORMAT 

; -LOAD SECTOR AND TRACK ADDRESS 

; -ENABLE DEBUG CLOCK 

‘os -SET GO BIT 

_ JSR PC,CNTCLR :GO CLEAR CONTROLLER 

000024 MOV ADMD,RMMR1(RO) ;LOAD RMMR1 
000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
000006 MOV -RMDACRO) LOAD RMDA 
000032 MOV 0 ,.RMOF ( ‘oe RMOF 
001174 MOV RMOF (RO),$TMPO ;STORE RMOF AT $TMPO 
000024 MOV #DMD '!DBEN, RMMR1 (RO) ;LOAD RMMR1 
000000 MOV #GO.RMCS1(RO) LOAD RMCS1 


see! AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA. 


000024 MOV | #DMD ' DBEN! DEBL , RMR! (RO) :LOAD RMMR1 
000024 MOV ADMD ! DBEN, RMMR1 (RO) :LOAD RMMR1 
001142 MOV RMDA(RO), SEDDAT :STORE RMDA AT $BDDAT 
001140 CMP SBDDAT , $GDD 

BEQ 30$ :BRANCH IF RMDA OK 

EMT 132 | 

BR 50$ OUT OF SYNC-SKIP TO NEXT 


;ADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT 
: COMPLETE 


30$: 


INC SGDDAT ; INCREMENT EXPECTED SECTOR 


023462 — ela b-$ THE LAST SECTOR JUST COUNTED?? 
CLRB $SGDDAT :YES-NEXT SECTOR SHOULD BE ZERO 
INCB $SGDDAT+1 ; INCREMENT TRACK ADDRESS 
40$: TSTB $BDDAT SHAS A FULL ones BEEN COUNTED?? 
BEQ 50$ :YES-DO NEXT 
BR 25$ > CONTINUE SECTOR TEST 


> INCREMENT TRACK COUNT USING DIAGNOSTIC END — START AT TRACK 0, 


LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCL 


001420 MOV 110$,RMDAO > START SECTOR ADDRESS = 0 


ee ee te 


i 


— 


—_———— 
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1928 023254 012737 000400 


1929 

1930 

1931 

1336 

193 

1934 

1935 023262 
pe 023262 
1937 023266 
1938 023274 
1939 023302 
1940 0233510 
1941 023316 
1942 

1943 

1944 023324 
1945 023332 
1946 

1947 

1948 023340 
1949 023346 
1950 023354 
1951 025356 

1326 023360 
195 

1954 

1955 023362 
1956 Oe aes 
1957 023366 
1958 023374 
1959 023376 
1960 023402 
1961 023410 
1306 023412 
1963 023420 
1964 023422 
1965 0685 
1966 023430 
1967 023432 
1968 023440 
1969 023446 
1970 

1971 023450 
Mb 4a 023456 
97 


1aGe 023462 
1976 023464 
1977 
1978 


=S258nN0 
Lw§— WU 
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000240 


054674 


060001 
040001 


000006 
001140 


001141 
001143 
001140 
001142 


023462 


010000 
010000 
000037 


000001 
023070 
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001140 


001335 


001420 
001420 
001444 
001444 
023462 


001140 





MOV #TAl. SGDDAT sFIRST VALUE AFTER INCREMENT 
; -CLEAR THE MASSBUS 
3 -SET FORMAT 
; -LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS 
; -ENABLE DEBUG CLOCK 
: -SET GO BIT 
60$: 
JSR PC, CNICLR 3;G0 CLEAR CONTROLLER 
MOV RMOFO,.RMOF (RO) ;LOAD RMOF 
MOV RMDAO,RMDACRO) ;:LOAD A 
MOV ADMD.RMMRIC(RO) ;:LOAD 
MOV ADMD ' DBEN, RMMR1 (RO) ;LOAD RMAR1 
MOV #G0, RMCS1 (RO) ;LOAD RMCS1 
;CLOCK RMDA USING DIAGNOSTIC END OF BLOCK 
MOV #DMD ' DBEN! DEBL .RMMR1 (RO) ;LOAD RMMR1 
MOV DMD 'DBEN, RMMR7 (RO) SLOAD RMMR1 


—' :STORE RMDA AT $BDDAT 
seal , SBDDAT 


;VERIFY RMDA ACCORDING TO $GDDAT 
MOV RMDA (RO) 


EMT 133 
BR 1208 :0UT OF SYNC-SKIP TO NEXT 
3 SETUP FOR NEXT INCREMENT OF RMDA TRACK ADDRESS 
' « INCB.~—s S$GDDAT#1 :ADVANCE EXPECTED TRACK 
CHP SBDDAT+1, /LSTRK+1 WAS THE LAST TRACK JUST COUNTED?? 
CLR $GDDAT aN ext TRACK, SECTOR SHOULD BE ZERO 
80$: Mov SBDDAT . RMDAO SHAS A FULL CYCLE BEEN COUNTED?? 
MOVB  110$,RMDAO = INCREMENT FROM LAST SECTOR 
BR 60$ 
90$: 
BIT #EMT16,RMOFO —§ ;DONE BOTH FORMATS?? 
BNE 120$ YES! 
MOV #FMT16,RMOFO =: SET FORMAT BIT FOR 16 
MOV #31.,110$ =SET LAST SECTOR FOR 16 BIT MODE 
BR 100$ 
100$: MOV #1, $GDDAT :SET FIRST COUNT VALUE 
JMP 10$ *REPEAT TEST 
110$: .WORD 0 :STORAGE FOR LAST SECTOR VALUE 
120$: 


Wee tee aARESSRAARASEAARSAARAEARASRAR AAS RS SASARARARRARRRSAARASRARASE SAS | 


=*TEST 40 RMDC COUNT TEST 


* TTT T TTT T TT TET TEE TET TTT OL ETT LE TELE EEL 


TST40: 
SCOPE >SCOPE CALL 
NOP 


ee ee a st 


TET sam 
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SEQ 01%4 
023470 012706 001100 MOV #STACK,SP OAD THE STACK POINTER 
023474 013700 601276 MOV SBASE .RO :RO = UNIBUS ADDRESS 
023500 013701 001466 MOV TSTQUE .R1 R1 = POINTER TO DEVICE 
on 023504 012737 000040 001226 MOV #40, $TESIN :SET TEST NUMBER IN APT MAIL BOX 
1980 :CLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS 
1981 023512 010037 001136 MOV "RO, SBDADR :SETUP REGISTER ADDRESS 
1982 023516 062737 000034 001136 ADD #RMDC, SBDADR 
1983 023524 005037 001444 CLR RMOF O :START WITH 18 BIT FORMAT 
1984 0235 013737 001334 001420 MOV LSTRK,RMDAO : SETUP LASi- TRACK AND 
Me O53270 112737 000035 001420 - MOVB #29. ,RMDAO LAST SECTOR 
1987 023544 0064737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
1988 023550 012737 000001 001140 MOV #1, $GDDAT :LOAD FIRST INCREMENTAL VALUE 
Mp «4 023556 012760 OCO000 000034 MOV #0, RMDC (RO) :LOAD RMDC 
<4 CLEAR . MASSBUS 
1993 .LOAD LAST SECTOR AND TRACK ADDRESS 
1994 : ENABLE DEBUG CLOCK 
1995 : .SET GO BIT 
1996 023564 20$: 
1997 023564 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
1998 023570 013760 001444 000032 MOV RMOFO,RMOF(RO) =LOAD RMOF 
1999 023576 016037 000032 001174 MOV RMOF (RO), $TMPO ;STORE RMOF AT $TMPO 
2000 023604 013760 001420 000006 MOV RMDAO,RMDA(RO) :LOAD RMDA 
2001 023612 012760 000001 000024 MOV #DMD,RMMR1(RO) =LOAD RMMR1 
seve 023620 012760 040001 000024 MOV #DMD ' DBEN, RMMR1 (RO) :LOAD RMMR1 
$052 023626 012760 000001 000000 MOV #G0, RMCS1(RO) :LOAD RMCS1 
2005 :CLOCK THE CYLINDER ADDRESS USING DEBL 
2006 023634 012760 060001 000024 MOV #DMD ' DBEN! DEBL , RMMR1 (RO) :LOAD RMMR1 
2007 023642 012760 040001 000024 MOV #DMD | DBEN. RMMR1 (RO) :LOAD RMMR1 
2008 023650 016037 000034 001142 MOV RMDC (RO), SBDDAT :STORE RMDC AT $BDDAT 
2009 023656 023757 001140 001142 CMP S$GDDAT, SBDDA 
2010 023664 001402 BEQ 30$ :BRANCH IF RMDC=RMDC+1 
2011 BS e090 104140 EMT 140 : 
$018 023670 000427 BR 60$ :OUT OF SYNC-SKIP TO END 
2014 “ADVANCE EXPECTED RESULT FOR NEXT INCREMENT 
2015 023672 30$: 
2016 Og 367 005237 001140 INC $GD -ADVANCE NEXT RESULT 
17 023676 022737 002000 001140 CMP riO24. ,SGDDAT ; SHOULD NEXT VALUE BE ZERO?? 
O18 St Le 00100 BNE 40$ 4 *NO!! 
19 023706 005037 001140 CLR $GDDAT *YES-RMDC SHOULD OVERFLOW 
20 Ogecte 005737 001142 40$: TST $BDDAT :IS ONE CYCLE COMPLETE?? 
21 023716 001401 ? BEQ 50$ :YES! 
¢ 023720 000721 BR 20$ i neti 
2023 023722 SOs: 
2024 bee? ee 032737 010000 001444 BIT #FMT16,RMCFO ; DONE 16 BIT FORMAT MODE ? 
5 0237 001007 BNE 60$ “YES ! 
Ogee Fe 012737 010000 001444 MOV hy RAOF 0 : SET ié BIT FORMAT AN 
023740 112737 000037 001420 MOVB #31.,RMDAO - :LOAD LAST SECTOR FOR. 16 BIT MODE 
8 Og 3786 000676 ii BR 10$ REPEAT TEST 


. f 
SC AAA RAKRAREKAEAEARAEAEEEAEKEAEERAEEEREAEAEKKEREREAEAAERARERE ERS RES 
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001226 


001136 


001420 
001420 


001142 


000024 
000014 


001140 


001444 


z*TEST 41 


LBT TEST 


“REECE AEEAREAREAAETATAEAREAKRARAEAAARARERAREAHRRARRERRK TRAE RO REE 


1$141: 


208: 


30$: 


SET 


ASTACK, SP 
TSTQUE ,R1 
#41 ,$TESTN 


RO, $BDADR 


S,$BDADR 


RMOF 0 
LSTRK,RMDAO 
#29. ,RMDAO 


CLEAR THE MASSBUS 
kORMAT 


>SCOPE CALL 


7LOAD THE STACK a 
:RO = UNIBUS ADDRESS 
:R1 = POINTER TO DEVICE 


>;SET TEST NUMBER IN APT MAIL BOX 
;SETUP REGISTER ADDRESS 


START WITH 18 BIT MODE 


=SETUP LAST TRACK AND 
LAST SECTOR 


LOAD LAST TRACK AND SECTOR 
LOAD LAST CYLINDER 


VERIFY THAT “LBT'’ IS RESET 


CNTCLR 


#822, -RMDC (RO) 
RMDAO , RMDA (RO) 


#°CLBT, $BDDAT 
20$ 


$SGDDAT 
141 


ENABLE DEBUG CLOCK 
SET GO 
FORCE EBL 


VERIFY THAT LBT IS SET 
pet (RO) 


:GO CLEAR CONTROLLER 
RMDC 


: LOAD 
;LOAD RMDA 


;LOAD RMOF 
sSTORE RMOF AT $TMPO 
:STORE RMDS AT $BDDAT 


sBRANCH IF LBT IS RESET 
;LBT SHOULD BE ZERO-: 


;LOAD RMMR1 


#0 ,RMER1 (RO) ;LOAD RMER1 

#0 ,,RMER2 (RO) ;LOAD RMER2 

#GO,.RMCS1(RO)  ;LOAD RMCS1 

#DMD ! DBEN! DEBL 1(RO) ;LOAD RMMR1 
#DMD ! DBEN, RMMR1 (RO) ;LOAD RMMR1 


RMDS(RO), SBDDAT :STORE RMDS AT $BDDAT 


#*CLBT, $BDDAT 
30$ | 
#LBT ,SGDDAT 
142 


40$ 


#FMT16,RMOFO 
40$ 


;BRANCH IF LBT IS SET 


:DONE 16 BIT FORMAT ? 
eves :! 


Lr: ee Ce —- + —— - —_ - -—-e= 
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14] LBI TE SEG 0136 
2079 024214 012737 010000 001444 MOV #FMT16.RMOFO >SET 16 BIT MODE AND 
4 112737 600037 001420 MOVB #31. ,RMDAO LAST SECTOR 
2081 024 000677 BR 10$ -TEST AGAIN 
2082 024232 40%: 
2083 
J SETAE AAA AAAE ARETE AAAAARAEKAERAKAARAEARARAREREKAHE EERE 
<STEST 42 COMPOSITE ERROR TEST 
FF TATA AAA AERA ARERR AAAAEAAAAEARAARERAAAKEAAREARERERREKRER ERE ERS 
024232 TST42: 
024232 000004 SCOPE :SCOPE CALL 
4234 000240 NOP 
024236 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
024242 013700 001276 MOV SBASE ,RO RO = UNIBUS ADDRESS 
0246246 013701 001466 MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
024252 012737 000042 001226 MOV #42, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
2086 024260 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
2087 024264 010037 001136 MOV RO, $8DADR :SETUP REGISTER ADDRESS 
soes 624270 062737 OC0012 001136 ADD #RMDS , $BDADR 
2090 :USING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE 
2091 ;ERROR IS RESET. 
ast 024276 012760 000001 000024 MOV #DMD,RMMR1(RO) ;LOAD RMR 
2095 024304 012760 O00000 000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
2094 024312 012760 000000 000042 MOV #0,RMER2 (RO) sLOAD RMER2 
2095 024320 016037 000012 001142 MOV RMDS(RO),$BDDAT ;:STORE RMDS AT $BDDAT 
2096 024326 042737 137777 001142 BIC #°CERR, $BDDAT 
2097 024334 001403 BEQ 10$ BRANCH IF ERR IS RESET 
2098 024336 005037 001140 CLR SGDDAT 
099 024342 104143 EMT 143 
$107 024344 012737 040000 001140 108: MOV HERR, $GDDAT 
$108 :SET BOTH ERROR REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET 
$18 024352 012760 177777 000014 MOV -7 ,RMER1 (RO) ;LOAD RMER1 
104 024360 012760 177777 000042 MOV #-1 ,RMER2 (RO) ;LOAD RMER2 
2105 024366 016037 000012 001142 MOV RMDS(RO).$BDDAT :STORE RMDS AT $BDDAT 
2106 024374 042737 137777 001142 BIC #*CERR,$BDDAT 
2107 024402 001001 BNE 20$ BRANCH IF ERR IS SET 
$195 024404 104144 EMT 144 
2110 : VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMERT 
2111 024406 20$: 
3118 024406 012702 000001 MOV #1,R2 : INITIALIZE TEST PATTERN 
114 -WRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
2115 024412 30$: 
$116 024412 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
2117 024416 012760 000001 Ponte MOV 4DMD.RMMR1(RO) ;LOAD RMMRI 
$119 pees 012760 Q00000 000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
119 024432 012760 000042 MOV #0,RMER2 (RO) :LCAD RMER2 
et 024440 010260 000014 MOV R2,RMER1(RO) :LOAD RMER1 
121 024444 016037 000012 001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT $BDDAT 
21 § Ose 024452 042737 137777 001142 BIC #“CERR,$BDDAT 
21 4460 001005 BNE 40$ :BRANCH IF COMPOSITE ERROR SET 
$1$¢ sere: 010237 001174 MOV R2,$TMPO :SAVE RMER1 TEST PATTERN 
125 024466 005037 001176 CLR $TMP1 . SAVE RMER2 TEST PATTERN 





EE 
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14? COMPOSITE ERROR TEST SEG Gi5% 
3196 024472 104145 EMT 145 
2128 :ADVANCE THE TEST PATTERN FOR RMER1 
2129 026474 40$: 
2130 924474 006302 ASL R2 
sig 024476 001345 BNE 30$ sCONTINUE IF TEST NOT DONE 
2133 :VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2Z 
2134 024500 50$: 
2135 024500 012702 000001 MOV #1,R2 : INITIALIZE TEST PATTERN 
AE 024504 012737 010000 001444 MOV #FMT16,RMOFO :SET 16 BIT FORMAT 
2138 :WRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
2139 024512 60$: 
2140 024512 004737 054674 JSR PC. CNTCLR 3GO CLEAR CONTROLLER 
2141 024516 012760 000001 000024 MOV #DMD,RMMR1(RO) = :LOAD RMR 
$146 06636 012760 000000 000014 MOV #0. RMER1 (RO) :LOAD RMER1 
2143 024532 012760 000000 000042 MOV #0,RMER2 (RO) :LOAD RMER2 
2144 024540 010260 000042 MOV R2,RMER2(RO) :LOAD RMER2 
2145 024544 013760 001444 000032 MOV RMOFO,RMOF (RO) ;LOAD RMOF 
2146 024552 016037 000012 001142 MOV RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
2147 024560 042737 137777 001142 BIC #“CERR, $8DDAT : 
2148 024566 012737 040000 001140 MOV HERR, $SGDDAT ;SETUP EXPECTED VALUE FOR COMP ERROR 
2149 024574 032702 001567 BIT AXNUER2 ,R2 
2150 024600 001402 BEQ 65$ ;BRANCH IF TEST BIT IS A USED BIT 
2151 024602 005037 001140 CLR SGDDAT :TEST BIT IS NOT USED - ERR SHOULD BE 0 
$126 024606 023737 001140 001142 65$: CMP $SGDDAT , SBDDAT 
2153 024614 001405 BEQ 70$ :BRANCH IF COMP ERROR IS OK 
2154 024616 005037 001174 CLR STMPC : SAVE RMER1 TEST PATTERN 
Sige 024622 010237 001176 MOV R2,$TMP1 :SAVE RMER2 TEST PATTERN 
$125 024626 104145 EMT 145 
2158 :ADVANCE THE TESi 7ATTERN FOR RMER2 
2159 024630 70$: 
$109 024630 006302 ASL R2 
161 0246632 001327 BNE 60$ : CONTINUE IF TEST NOT DONE 
5108 024634 80$: 
2164 FLERE EERE ERE REE EEE EERE REE REE KEKE 
r*TEST 43 WRITE GO TEST 
bB (eee RaRaAaSSeSESAEAAASAALRASAASAZASA SASS AaARALAASBSZASLSAAASLAASSRSARASLASASA SASL SL S&S : 
024634 TST43: 
024634 000004 SCOPE :SCOPE CALL 
024636 000240 NOP 
024640 Abas. 001100 MOV ASTACK,SP :LOAD THE STACK POINTER 
024644 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
024650 013701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
65 024654 012737 000043 001226 MOV 4#43,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
66 024662 010037 001136 MOV RO, $BDADR :COPY RMCS1 ADDRESS 
024666 005002 CLR R2 > INITIALIZE FUNCTION CODE 


71 024670 004737 054674 JSR PC,CNTICLR ;GO CLEAR CONTROLLER 


4 
1 
19° 
169 ;CLEAR THE MASSBUS, SET DIAGNOSTIC MODE AND ENABLE DEBUG CLOCK 
’ 4670 , 10$: 
2172 024674 012760 000001 000024 MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 
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: 143 WRITE GO TEST SEQ 0140 
2173 024702 012760 041001 000024 MOV #DMD ! DBEN'MUR.RMMR1(RO) :LOAD RMMR1 
2174 024710 012760 600000 000014 MOV #O.RMERI(RO)  :LOAD RMERI 
| 2175 024716 012760 000000 000042 MOV #O.RMER2(RO) LOAD RMER2 
| ee : TRANSFER THE FUNCTION CODE AND 60 BIT TO RMCS1, VERIFY GO IS SET 
2178 024724 010203 MOV R2-R3 SETUP FUNCTION CODE 
2179 9 4706 052703 000001 BIS R3 
2180 024732 2 010360 000000 MOV + RMCS1(RO) LOAD RMCS1 
2181 016037 000000 001142 MOV RMCS1(RO) , $BDDAT : STORE RMCS1 AT $BDDAT 
2182 054 a 032737 000001 001142 BIT #60, $BDDAT 
$137 024752 001007 BNE 20$ :BRANCH IF GO IS SET 
2185 =REPORT THE ERROR-CANT SET GO WITH THIS FUNCTION CODE 
2186 024754 042737 177700 001142 BIC #*CFNCMSK, SBDDAT 
2187 024762 010337 001140 MOV R3, $GDDAT :SAVE FUNCTION CODE 
2188 024766 104146 EMT 146 
2189 024770 000405 , BR 30$ 
2191 zADVANCE R2 TO THE NEXT FUNCTION CODE 
2192 024772 20$: 
2193 024772 062702 000002 ADD #2,R2 
2194 026776 022702 000076 CMP HILF76.R2 
$132 025002 103332 BHIS 10$ 
$13. 025004 30$: sEND OF TEST 
2199 FARRAR EKER EERE EKEKEREKEKKEKEEKEKEEREEKEEE 
“STEST 46 BRANCH MULTIPLEXOR TEST 
tease SeaSaaSsSA SEA SASRSAASALAALASAASAAASSAASLEAAASAAAAAASLARBAAASAAASLALAAS & @ 1 
025004 TST44: 
025004 000004 SCOPE : :SCOPE CALL 
025006 240 NOP 
025010 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
025014 013700 001276 MOV $BASE .RO =RO = UNIBUS ADDRESS 
025020 013701 001466 MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
- 025024 012737 001226 MOV #44, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
201 025032 010037 001136 MOV RO, $BDADR :COPY REGISTER ADDRESS 
o¢ 3822 062737 000040 001136 ADD ARMMR2 , SBDADR 
03 025044 012702 025270 MOV #100$,R2 : INITIALIZE TABLE POINTER 
$ $8 ~ ; CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE 
§ 7 988080 004737 054674 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
025054 012760 000001 000024 MOV #DMD,RMMR1(RO) =LOAD RMMR 
0 5062 012760 041001 000024 MOV #DMD 'DBEN!MUR,RMMR1(RO) :LOAD RMMR1 
025070 012760 000000 000014 MOV #O.RMER1(RO)  :LOAD RMER1 
025076 012760 000000 000042 MOV #0, * RMER2 (RO) :LOAD RMER2 


;THE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN 
; THE ee ie IS INITIALIZED 


ee er i ir ie ie ar ar rs 
OOO WO 
=) 
™ 


5104 016037 000040 001142 Vv (RO) , SBDDAT :STORE RMMR2 AT $BDDAT 
025112 032737 010000 001142 BIT #TST,$BDDAT 
0251 001010 BNE 15$ sBRANCH IF TEST BIT IS ON 
2 0251 042737 167777 001142 BIC #*°CTST,$BDDAT  ;SETUP FOR ERROR TYPE 
2219 0251 012737 010000 001140 MOV #TST, SGDDAT 
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BRANCH MULTIPLEXOR TES SEQ 0141 
2220 025136 104147 EMT 147 
221 025140 000452 BR 40$ SKIP REST OF TEST 
2298 :GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE, 
2224 : THEN STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE. 
2225 025142 15$: 
2226 025142 111203 | MO (R2) .R3 
2227 025144 052703 000001 BIS R3 
2228 025150 042703 177700 BIC #*CFNCMSK ,R3 :R3=FUNCTION CODE, GO BIT 
2229 025154 010360 000000 MOV R3,RMCS1(RO) :LOAD RMCS1 
$230 025160 010337 001174 MOV R3,$TMPO :SAVE R3 FOR ERROR MSG 
2589 025164 116203 000001 MOVB 1(R2) .R3 GET CLOCK COUNT IN R3 
2233 025170 042703 177400 BIC #°C377,R3 
2234 025174 20$: 
2235 025174 012760 141001 000024 MOV #DMD ! DBEN' MUR ! DBCK,RMMR1 (RO) :LOAD RMMR1 
2236 OS3906 012760 041001 000024 MOV ADMD 'DBEN!MUR,RMMR1(RO) ;LOAD RMMRI 
$536 $53 10 005303 - DEC R3 :DECREMENT CLOCK COUNT 
3338 025212 001370 BNE 20$ : ISSUE CLOCKS TILL ZERO 
2240 :GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY 
2241 025214 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 
gohe 025222 042737 167777 001142 BIC #°CTST,$BDDAT 
2243 025230 016237 000002 001140 MOV 2(R2) , SGDDAT 
2244 025236 023737 001140 001142 CMP $GDDAT, $BDDAT 
2245 025244 001402 BEQ 30$ :;BRANCH IF TEST BIT OK 
2246 025246 104150 EMT 150 
$067 025250 000406 BR 40$ :SKIP REST OF TEST 
$ 49 “MOVE THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE 
50 025252 30$: 
2251 025252 062702 000004 ADD #4 ,R2 
g 32 025256 105762 000001 TSTB 1(R2) 
5 BS ogee 100401 BMI 40$ s;BRANCH IF DONE TEST 
2254 025264 000671 BR 10$ | “REPEAT TEST 
5356 025266 000436 40$: BR 200$ ; JUMP OVER TABLE 
é 57 : TABLE OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS 
258 025270 100$: 
2259 Bs 2670 000 -BYTE NOP sMUX ADDRESS=DATA COMMAND 
2260 ses) 001 -BYTE 1 
§ re 025272 - WORD 0 : TEST BIT=0 
$ 6g Og2ere 000 -BYTE NOP sMUX ADDRESS=UNIT READY 
64 025275 002 BYTE 2 
Re 025276 000000 .WORD 0 :TEST BIT=0 
¢ 025300 010 - BYTE  DRVCLR :MUX ADDRESS=F4 
68 025301 601 Peal BYTE 1 7 
14 025302 010000 . WORD TST :TEST BIT=1 
71 O83 308 050 -BYTE wCD s:MUX ADDRESS=F4 
re 025305 001 BYTE 1 
3 025306 .WORD 0 :TEST BIT=0 
75 025310 012 .BYTE  RLEASE :MUX ADDRESS=F4 
276 025311 001 BYTE 1 
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sy ~ 
SEQ . é 


 CZRMPBO RM0S/3/2 DSKLS TST 1 
144 BRANCH MULT [PLEXOR TEST 
2277 025312 010000 _wORD IST :TEST BIT=1 
2279 025314 052 -BYTE wWCH >MUX ADDRESS=F4 
2280 0 5315 001 "BYTE 1 
ssa) 025516 000000 J 0 sTEST BIT=0 
2283 0253 020 _BYTE RIP :MUX ADDRESS=F4 
2284 025321 001 BYTE 1 
285 025322 010000 "WORD TST :TEST BIT=1 
287 025324 060 _BYTE wD :MUX ADDRESS=F4 
88 0 2352 001 .BYTE 1 
§ 89 025326 000000 -WORD 0 s TEST BIT=0 
2291 025330 022 _BYTE PAKACK :MUX ADDRESS=F4 
2 4 025331 001 .BYTE 1 
295 025332 010000 “WORD TST :TEST BIT=1 
2295 025334 062 _BYTE WH :MUX ADDRESS=F4 
2296 025335 001 BYTE 1 
£297 025336 “WORD O :TEST BIT=0 
£699 025340 030 .BYTE SEARCH :MUX ADDRESS=F4 
2 025341 001 BYTE 
2301 025342 010000 "WORD TST :TEST BIT=1 
% 
$308 025 344 070 -BYTE RD :MUX ADDRESS=F4 
2304 025345 001 -BYTE 1 
; 5 025346 000000 “WORD 0 :TEST BIT=0 
2307 025350 032 .BYTE ILF32 sMUX ADDRESS=F4 
- 3308 025351 001 "BYTE 1 
309 025352 010000 "WORD TST :TEST BIT=1 
$34) 025354 072 -BYTE RH :MUX ADDRESS=F4 
$316 025355 001 BYTE 1 
Stiz 025356 000000 -WORD 0 :TEST BIT=0 
sate Oe aeey 000 -BYTE : :END OF TABLE 
2316 025361 377 "BYTE -1 
2317 025362 . WORD 
e318 025364 200$: :END OF TEST 
2320 CT AAR EAR AKER EEE RARER KER 
SSTEST 45 SET/RESET GO TEST 
CT AEA KARA ERERKREREEKEERKERKEAAEKEEREKEKERE EEE EEE EE 
025364 TST45: 
025364 SCOPE :SCOPE CALL 
025 gs | 
025370 012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
025374 013700 001276 MOV SE ,RO *RO = UNIBUS ADDRESS 
025400 013701 001466 MOV TSTQUE ,R1 “R1 = POINTER TO DEVICE 
ies 025404 012737 000045 001226 MOV #45 ,$TESIN *:SET TEST NUMBER IN APT MAIL 80X 
3352 025412 012702 026026 MOV #200$,R2 : INITIALIZE FUNCTION CODE POINTER 
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145 SET/RESET GO TEST SEQ 0142 
2324 CLEAR, THEN SET DIAGNOSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM 
-ON LINE AND ENABLE DEBUG CLOCK 
2326 025416 10S: 
2327 025416 004737 054674 JSR. —s- PC, CNTCLR GO CLEAR CONTROLLER 
2328 025422 012760 000001 000024 MOV #DMD.RMMRIC(CRO) ;:LOAD 1 
2329 025430 012760 041001 000024 MOV #DMD 'MUR'DBEN.RMMR1(RO) :LOAD RMMR1 
2330 025436 012760 000000 000014 MOV #0.,.RMER7 (RO) :LOAD RMER1 
$335 025444 012760 900000 000042 MOV #0, RMER2 (RO) ;LOAD RMER2 ; 
2333 : TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET 
2334 025452 111203 MOVB (R2) RF GET FUNCTION CODE 
2335 025454 042703 177701 BIC #°CILF76,R3 :CLEAR UNUSED BITS 
2336 025460 052703 000001 BIS #G0,R :SET GO 
2337 025464 010360 MOV R3,RMCS1(RO) LOAD RMCS1 
2338 025470 01603 001142 MOV RMCS1(RO) .$BDDAT :STORE RMCS1 AT $BDDAT 
2339 025476 032737 000001 001142 BIT #G0,$BDDAT 
2340 0255 001011 BNE 20$ :BRANCH IF GO IS SET 
2341 025506 042737 177700 001142 Be #*CFNCMSK,$BDDAT 
$369 025514 010337 001140 MOV R3,$GDDAT :SAVE EXPECTED RESULT 
2343 025520 010037 001136 MOV RO, $BDADR :COPY REGISTER ADDRESS 
2344 025524 104151: EMT 151 : 
ft oF 025526 000536 BR 100$ 
2347 :GET READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO 
2348 025530 20$: 
2349 025530 005037 001140. CLR $GDDAT :EXPECT DRY TO BE OFF 
2350 025534 032737 000001 001142 BIT #G0, $BDDAT -WAS GO SET?? 
2351 025542 001003 BNE $ :YES!! 
$326 063344 012737 000200 001140 wed MOV #DRY , SGDDAT :GO WAS NOT SET. DRY SHOULD BE 
025552 016037 000012 001142 ~~ MOV RMDS(RO),$BDDAT :STORE RMDS AT $BDDAT 
S3e¢ 962202 ef ete 177577 001142 BIC #*CDRY , SBDDAT 
55 025566 023737 001140 001142 © CMP SGDDAT , SBDDAT 
$29 Og 2208 001406 BEQ 40$ i. :BRANCH IF DRY IS OK 
32 025576 010037 001136 MOV RO, $BDADR :COPY REGISTER ADDRESS 
58 Bg 2008 062737 000012 001136 ADD ARMDS , SBDADR 
35 025610 104152 EMT 152 | 
361 STEP THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET 
af 9g361¢ 40$: 
363 025612 116204 MOVB 1(R2) .R4 :GET NUMBER OF CLOCK CYCLES 
364 0g3616 042704 177400 | BIC #°C377 RG 
5 025622 50S: Z | 
OS2 2 012760 141001 000024 MOV ADMD ' MUR ' DBEN! DBCK, RMMR1 (RO) s;LOAD RMMR1 
0256 012760 041001 000024 MOV ADMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 ) 
025636 016037 001142 MOV —s— RMCS1(RO) , SBDDAT =STORE RMCS1 AT $BDDAT 
9 025644 042737 177700 001142 BIC #*CFNCMSK,$BDDAT ;CLEAR UNUSED BITS 
025652 010037 001136 MOV RO, $BDADR :SETUP REGISTER ADDRESS 
Ha 025656 010337 001140 MOV R3,$GDDAT >SAVE EXPECTED RESULT 
$ 8 :DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO 
74 025662 005304 DEC RS 
75 025664 001406 : BEQ 60$ 
38 0 2666 032737 000001 001142 BIT #G0, SBDDAT -IS GO STILL SET?? 
77 025674 001352 BNE 50$ -  sVES!! 
378 025676 104153 EMT 153 " 
2379 025700 000451 RR 100$ :OUT OF SYNC=SKIP TO NEXT 
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ine SHOULD NOW BE RESET AND DRY SHOULD Bf SET 


001142 BIT #G0.S$8DDAT :iS GO RESET?? 
BEQ 70$ sVYES!! 
001140 BIC #G0.$GDDAT sSETUP EXPECTED RESULT 
EMT 154 
_ BR 100$ 
001140 MOV #DRY . SGDDAT sEXPECT DRIVE READY TO BE SFT 
001142 BIT #G0,$BDDAT :DID GO RESET?? 
BEQ 80$ s Ves! 3 
ase CLR SGDDAT ;G0 IS SET- 
001142 MOV RMDS(RO),.SBDDAT ; STORE RMDS AT SBDDAT 
001142 BIC #“CDRY , SBDDAT 
MOV RO, $BDADR ;COPY REGISTER ADDRESS 
001136 ADD #RMDS , SBDADR 
001142 CMP SGDDAT . SBDDAT 71S DRIVE READY OK?? 
BEQ 90$ sves!: 
EMT 152 


a TO THE NEXT FUNCTIGN CODE TO BE TESTED-EXIT IF DONE 


ADD #2,R2 sMOVE TABLE POINTER 
TSTB 1(R2) sEND OF TABLE?? 
BM] 100$ ;YES!! 
10$ ;TEST THIS FUNCTION CODE 


JMP 
100$: BR 300% :GO TO NEXT TEST 
inane OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 


-BYTE ILFO2 ; ILLEGAL FUNCTION CODE #2 
-BYTE 1 

-BYTE SEEK > SEEK COMMAND 

-BYTE 7 

-BYTE RECAL :RECALIBRATE COMMAND 

BYTE 7 . 

-BYTE OFFSET :OFFSET COMMAND 

mite 86 

-BYTE RIC sRETURN TO CENTER LINE COMMAND 
-BYTE 1 

-BYTE ILF24 ; ILLEGAL FUNCTION CODE #24 
OYTE 1 

-~BYTE ILF26 ; ILLEGAL FUNCTION CODE #26 
-BYTE 1 

-BYTE ILF34 7 ILLEGAL FUNCTION CODE #34 
mre 1 

-BYTE ILF36 7 ILLEGAL FUNCTION CODE #36 


SEQ 0144 


ee ee 


145s SET/RESET GO T 
2636 026047 001 
2437 

026050 067 
9 026051 001 
41 026052 Obs 
2642 02605 001 
244 
2444 026054 046 
445 026055 001 
446 
457 026056 054 
448 02605 001 
2450 026060 056 
451 026061 001 
43¢ 
453 02 064 
494 02606 001 
026064 066 
437 026065 001 
459 026066 074 
460 026067 001 
026070 076 
2463 026071 001 
464 
65 02607 000 
466 02607 377 
467 
468 026074 
3469 
026074 
026074 000004 
026076 000240 
100 012706 
6104 013700 
26110 015701 
, 026114 012757 
026122 012702 
6126 010037 
026132 
026132 004737 
; 026136 012760 
144 012760 
152 012760 
026150 012760 
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001226 


300$: 


TST46: 


-¢ 
10$: 


-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTe 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


ILF42 SILLEGAL FUNCTION CODE #42 
ILF 44 ILLEGAL FUNCTION CODE #44 
ILF46 ZILLEGAL FUNCTION CODE #46 
ILF54 ; ILLEGAL FUNCTION CODE #54 
ILF56 ; ILLEGAL FUNCTION CODE #56 
ILF64 ; ILLEGAL FUNCTION CODE #64 
ILF 66 SILLEGAL FUNCTION CODE #66 
ILF74 ; ILLEGAL FUNCTION CODE #74 
ILF76 : ILLEGAL FUNCTION CODE #76 
* ;END OF TABLE 

;END OF TEST 


onl gest emi aaa lint della <dpnein” ahciais ainahatiinatasins isin acini 


TRTEST 46 


+ RREER REE EHRRER EEE RRERER SER RRR REE 


LEAR MASSBUS, 





END 1 RESET GO TEST ; 


:SCOPE CALL 
#STACK ,SP ;LOAD THE STACK POINTER 
SBASE .RO :RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
#46, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#100$ Re : INITIALIZE TABLE POINTER 
RO, $BDADR : COPY RMCS1 ADDRESS 


THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK 


PC,CNTCLR ;GO CLEAR CONTROLLER 
#DMD,.RMMR1(RO) ;LOAD RMMR1 

#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
#0 ,,RMER1 (RO) ;LOAD RMERT 

#0 ,RMER2 (RO) ;LOAD RMER2 


SE ce 


D1 
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(«146 END 1 RESET GO TEST SEO 01 
| : TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1. VERIFY GO IS SET 
| 2484 026166 111203 MOVB (R2) 8 GET FUNCTION CODE FROM 
| 2485 026170 042703 177701 PIC #*CILF76.R3 :TABLE AND SET GO 
| 2486 026174 052703 000001 31S UR 
| 2487 02 010337 001140 MOV R3,$GDDAT ;SAVE FUNCTION CODE FOR MSG 
2488 0 010360 000000 MOV R3,RMCS1(RO) iL RMCS1 
2489 026210 016037 000000 001142 MOV RMCS1 (RO). SEDDAT STORE RMCS1 AT $BDDAT 
2490 026216 632737 900001 001142 BIT #G0, $BDDAT 
2491 026224 901005 BNE 20$ :BRANCH IF GO IS SET 
2492 026226 042737 177700 001142 BIC #°CFNCMSK , S8DDAT 
2493 026234 104151 EMT 151 
ga% 026236 000447 BR 60$ :0UT OF SYNC=SKIP 
2496 :GET THE NUMBER OF CLOCK CYCLES FROM THE TABLE. SAVE EXPECTED STATUS 
2497 026240 20$: 
2498 026240 116204 000001 MOVB 1(R2) RG :R4=CLOCK COUNT 
3699 026244 042704 177400 BIC #°C377 RG 
2501 :STEP THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES. 
30¢ 026250 30$: ~ 
2503 026250 012760 141001 000024 MOV ADMD ! MUR ! DREN! DBCK,, RMMR1 (RO) :LOAD RMMR1 
2504 026256 012760 041001 000024 MOV #DMD '!MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
2505 026264 016037 000000 001142 MOV RMCS1(RO), SBDDAT :STORE RMCS1 AT $BDDAT 
2506 026¢72 042737 177700 001142 BIC #*CENCMSK, $8DDAT 
2507 026. 005 304 DEC R4 | 
2508 026302 001406 BEC 40$ ;BRANCH IF GO SHOULD BE OFF 
2509 026304 032737 000001 001142 BIT #G0,$BDDAT 
2510 026312 001356 30$ CONTINUE IF GO IS ON 
2511 026314 104153 EMT 153 
3212 026316 000417 BR 60$ :0UT OF SYNC-SKIP 
2514 : VERIFY THAT GO RESET AT END1 
2515 026320 , 40$: 
2516 026320 032737 000001 001142 BIT #G0,$BDDAT :DID GO RESET?? 
517 026326 001405 BE 50$ sYES!! 
518 026330 042737 000001 001140 BIC #G0,$GDDAT 
519 026336 104154 EMT 154 
35 026340 000406 BR 60$ 
5 é -GET THE NEXT FUNCTION CODE FROM THE TABLE 
$2 026342 50s: 
$24 026342 062702 000002 | ADD #2,R2 
32 5 026346 105762 000001 ‘STB 1(R2) 
5 $ 0 633¢ 100401 BM! 60$ :BRANCH IF END OF TABLE 
2527 026354 000666 BR 10$ *TEST THIS FUNCTION CQDE. 
3 8 026356 000404 60S: BR 2008 - JUMP OVER TABLE 
2% : TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 
2531 026360 100$: 
338 026360 012 BYTE —_—-RLEASE :RELEASE COMMAND 
; 026361 002 -BYTE 2 
a3 026362 030 .BYTE SEARCH =SEARCH COMMAND 
236 026363 2 BYTE 2 
S298 026364 032 -BYTE ILF32 - ILLEGAL FUNCTON 432 
539 026365 002 BYTE 2 
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1 RESET GO TEST 
2541 026366 000 -BYTE :END OF TABLE 
2542 025367 377 TE 1 
2543 026370 2008: END OF TEST 
2544 
2545 SL OEE EEE REE E EAE AARARERRARERAERARAREKERERRARRER ERROR RRR E Ee 
s*TEST 47 SET PULSE TEST 
<A AAA AAA AEA AEA EERE EE ERAAEAEAEARAERARARAERERER RH RERERKREEES 
026370 TST47: 
026370 000004 SCOPE :SCOPE CALL 
026372 000240 NOP 
026374 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
026400 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
026404 013701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
2546 026410 012737 000047 001226 MOV #47, STESIN 22SET TEST NUMBER IN APT MAIL BOX 
4 
2547 026416 010037 001136 MOV RO, $8DADR :COPY REG ADDRESS FOR MSG 
2548 026422 , 062737 000024 001136 ADD #RMMR1 , SBDADR 
$325 026450 012702 026666 MOV #100$,R2 INITIALIZE TABLE POINTER 
2551 ;CLEAR THE MASS BUS, ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS 
$228 026434 10$: 
25535 026434 004737 054674 JSR PC,CNTCLR :GO CLEAR CONTROLLER 
2554 026440 012760 000001 000024 MOV eRMMRI(RO) ;LOAD RMMRI 
2555 026446 012760 041001 000024 MOV ADMD ! DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
$229 026454 012760 000000 000014 MOV #O,RMERI(RO) = gL RMER1 
Seep 026462 012769 000000 000042 MOV #0 ,RMER2(RO) ;LOAD RMER2 
$222 >VERIFY THAT CONTINUE, ‘'CONT’’ IS RESET AFTER CLEAR 
560 026470 016037 000024 001142 MOV RMMR1 (RO) . SBDDAT ;STORE RMMR1 AT SBDDAT 
See! pEeere 042737 177677 001142 BIC #“C CONT , SBDDAT 
20¢ 026504 001404 : BEQ 20$ :BRANCH IF CONT WAS CLEARED 
2563 026506 005037 001140 CLR SGDDAT :FOR ERROR MSG 
2564 026512 104155 EMT 155 
Stes 026514 6 BR 
eee ;GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO RMCS1 
2568 026516 20$: 
$299 026516 111205 MOVB (R2) ,R3 
5 ogee 0 052703 000001 BIS #G0,R3 
$25) 026524 042703 177700 BIC #*CFNCMSK ,R3 ;R3=FUNCTION CODE AND GO 
276 0265 010360 000000 MOV R3.RMCS1(RO) ;LOAD RMCS1 
ih 026534 010337 001174 MOV R3,$TMPO :SAVE FUNCTIGN CODE FOR MSG 
575 :GET THE CLOCK COUNT FROM THE TABLE 
576 026540 116203 000001 MOVB 1(R2) ,R3 
$270 026944 042705 177400 | BIC =. #*377,,R3 
2579 :GET THE BIT STREAM FOR CONTINUE FROM THE TABLE 
Seay 026550 016204 000002 MOV 2(R2) ,RS 
358 >STEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS 
583 026554 308: 
2584 026554 012760 141001 000024 MOV #DMD ! DBEN! MUR ! DBCK , RMMR1 (RO) ;LOAD RMMR)1 
Sine 026562 012760 041001 000024 MOV #DMD ! DBEN! MUR ,RMMR1(RO) ;LOAD RMMR1 
2586 026570 016037 000024 001142 MOV RMMR1 (RO), SBDDAT ;STORE RMMR1 AT $BDDAT 
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SEQ 0144 
001142 BIC #*CCONT SBDDAT 
CLR SGDDA ZGENERATE EXPECTED CONTINUE 
BIT we1T0. R4 
BEQ 40$ 
061140 MOV #CONT , SGDDAT 
001142 40%: CMe SGDDAT . $BDDAT 
BEQ 50$ :BRANCH IF CONTINUE IS OK 
EMT 156 
BR 70$ = SKIP 
¢DECREMENT CLOCK COUNT AND SHIFT BIT STREAM 7 
— R3 
BEQ 60$ :BRANCH IF CLOCK COUNT EXPIRED 
ASR R4 >SHIFT TO NEXT CONTINUE BIT 
BR 30$ =TEST NEXT CLOCK CYCLE 
Z ADVANCE TABLE POINTER-EXIT IF DONE 
ADD #4 ,R2 
TSTB.~—s_- 1(R2) 
BM! 70$ :EXIT IF CLOCK COUNT NEGATIVE 
BR 10$ =CONTINUE TEST 
70$: BR 200$ > JUMP OVER TABLE 
; TABLE OF FUNCTION CODES, CLOCK COUNTS AND CONTINUE BITS FOR TEST 
"BYTE NOP :NOP COMMAND 
“BYTE 4 74 CLOCKS 
“WORD  *BO00O = CONT INUE=0000 
.BYTE  ILFO2 : ILLEGAL FUNCTION 2 a 
“BYTE 
WORD “BOO 
.BYTE SEEK = SEEK COMMAND ; 
-BYTE 2 : 
“B00 
_BYTE —RECAL =RECALIBRATE COMMAND 
“BYTE 
WORD  *R00 
.BYTE  DRVCLR :DRIVE CLEAR COMMAND 
‘BYTE 2 
“WORD “B01 
_BYTE  RLEASE :RELEASE COMMAND 
“BYTE 
“WORD 8000 
.BYTE OFFSET :OF FSET COMMAND 
“BYTE 
“WORD “BOO 
_BYTE RTC :RETURN 70 CENTER COMMAND 
‘BYTE 2 


eee _—- o— 


teats essere oes 


147 


2644 026724 
2645 
2646 026726 


65 

2654 026736 
2655 026737 
2656 026740 
2657 

2658 026742 
2659 026743 
2660 026744 
661 

2662 026746 


2663 026747 
vee: 026750 


266 

2666 026752 
2667 926753 
2668 026754 
2669 

2670 026756 


2671 026757 
$076 026760 


67 
674 02676 
675 02676 
2678 026764 
677 


6 

ze8t 026770 
681 

ty 026772 


268 
2684 


026772 — 


Nm 
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001226 


001136 


200$: 


- WORD 


-BYTE 
-BYTE 
- WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 
-BYTE 


BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 


BYTE. 


-BYTE 
. WORD 


“B00 

RIP ;READ IN PRESET COMMAND 
“81110 

PAKACK PACK ACKNOWLEDGE ___ 
81170 

ILF24 ; ILLEGAL FUNCTION 24 
“B00 

ILF 26 ; ILLEGAL FUNCTION 26 
“B00 

SEARCH ; SEARCH COMMAND 

“~B000 

ILF 32 ; ILLEGAL FUNCTION 32 
“B000 

ILF 34 ; ILLEGAL FUNCTION 34 
“B00 

ILF 36 ; ILLEGAL FUNCTION 36 
“B00 


sEND OF TABLE 


sEND OF TEST 


5 RARE KARE REREREAEEREEARERERKEREEAREHKEKEEAEREREEREKEKE ERED 


“*TEST 50 


SET/RESET IVC TEST 


FL EAE RARER KRACKER KAEREKEKEEEKEEEEEEE AKER ERE EEE 


TST50: 


sSCOPE CALL 
ASTACK,SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#50, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
RO, $BDADR ;SETUP REG ADDRESS 
#RMER2 , SBDADR 
R2 3R2=FUNCTION CODE 


>INITIALIZE AND VERIFY THAT IVC STATUS IS ZERO. 
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698 027076 042737 167777 
001404 
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$508 027114 000444 
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012760 141001 
012760 041001 
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204 0102357 001174 
210 104160 
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$5538 022702 000076 
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273 062737 000042 
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10$: 

JSR PC, CNTCLR 7GO CLEAR CONTROLLER 
900024 MOV ADMD. RMMR1 (RO) >LOAD RMMR 1 
000024 MOY #DMD 'MUR' DBEN.RMMR1(RO) :LOAD RMMRI 
000014 MOV #0.,.RMER1 (RO) 4. RMER1 
000042 MOV #0, RMER2 (RO) sLOAD RMER2 
001142 MOV RMER2 (RO) , SBDDAT sSTORE RMER2 AT $HDDAT 
001142 BIC #*CIVC,SBDDAT 

BEQ 20$ ;BRANCH IF IVC IS ZERO 

CLR SGDDAT 

EMT 157 

BR 40$ SKIP REST OF TEST 


7LOAD THE FUNCTION CODE WITH GO BIT. STEP THE COMMAND SEQUENCER OF F 
ZADDRESS O AND VERIFY IVC STATUS. 


MOV R2,R3 . SETUP FUNCTION CODE 
BIS #G60,R3 
| MOV R3,RMCS1(RO) LOAD RMCS1 
000024 MOV #DMD '! MUR! DBEN! DBCK,,RMMR1 (RO) LOAD RMMR1 
000024 MOV ADMD 'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
001142 MOV RMER2 (RO) , S$BDDAT STORE RMER2 AT. $BDDAT 
001142 BIC #°CIVC,$BDDAT  :SET ACTUAL STATUS 
001140 MOV FNCDTB(R2),$GDDAT :SETUP EXPECTED STATUS FROM 
001140 BIC #*°CIVC,$GDDAT :FUNCTION CODE TABLE 
001142 CMP $GDDAT , $BDDAT 
BEQ 30$ :BRANCH IF IVC IS OK 
MOV R2,$TMPO SAVE FUNCTION CODE FOR MSG 
EMT 160 
ZADVANCE FUNCTION CODE AND REPEAT TEST IF NOT DONE - 
aa #2,R2 
CMP #ILF76.R2 
BLO 40$ :BRANCH IF DONE TEST 
BR 10$ 
40$: END OF TEST 
CT RARER RARER AAA EKER EEK EKERRERKEK EE 
:*TEST 51 SET LSC TEST 
CC ERA Ee 
TST51: 
—* ;SCOPE CALL 
MOV #STACK,SP :LOAD THE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MGV TSTQUE ,R1 -R1 = POINTER TO DEVICE 
001226 MOV #51, $TESTN -:SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDADR 
001136 ADD #RMER2 , $BDADR 
: INITIALIZE AND VERIFY THAT LOSS OF SYSTEM CLOCK, ‘LSC’, IS RESET 
JSR PC. CNTCLR :GO CLEAR CONTROLLER 
000024 MOV #DMD,RMMR1(RO) :LOAD RMMR1 


a NN ee 


de - 


ie. 027300 


2747 

2748 027346 
027346 

2749 027354 
027362 

2750 027366 


2751 027372 
2758 027574 


2754 
2755 027400 


$78 027434 
276 
2764 


027434 


é 7546 
2781 027550 
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040001 
G00000 


0000462 
173777 
001140 


000001 
000001 
152150 
001534 
152140 
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000042 
173777 
004000 


001100 


001426 
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000012 
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001426 
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000000 
001534 


000024 
001142 
001142 


001140 


001226 


000014 
000000 


MOV “DMD! oat tk RMMR1 (RO) ;LOAD RMMR1 
RMER1 


RMER2 
>STORE RMER2 AT $BDDAT 


BEG 10$ sBRANCH IF LSC IS ZERO 
CLR SGDDAT 
EMT 161 


Me DEBUG CLOCK <NABLED, SET GO AND WAIT FOR ONE SHOT TO SET 


MOV #GO,RMCS1(RO) ;LOAD RMCS1 
sSET WATCHDOG TIMER VALUE 


MOV #1 ,WATCH 
JSR PC ,aCLOCK START THE CLOCK 
20$: TST WATCH 


BNE 20% WAIT FOR WATCK ZERO 
JSR PC ,@STOPCL : STOP THE CLOCK 


;ONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET. 
MOV #OMD.RMMR1(RO) ;LOAD 1 


MOV RMER2 (RO), $BDDAT :STORE RMER2 AT S$BDDAT 
BIC #*CLSC, SBDDAT 
BNE 30$ ;BRANCH IF LSC SET 
MOV M#LSC,$GDDAT 
EMT 162 
30$: sEND OF TEST 
SRR ERRATA EERE RRR EEE EERE RR ER EEE RE EEE 
SRTEST 52 DECODE TEST 
ERE Re 
1S152: 
ae :SCOPE CALL 
MOV MSTACK ,SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #52, $TESIN 7:SET TEST NUMBER IN APT MAIL BOX 
55 CLR RMER10 7NO ERROR FIRST TEST 


JSR PC,100$ : INITIALIZE 


sEXECUTE A PACK aa agg AND CHECK VOL UME yo 4 
MOV RMER10,RMER1 (RO) LOAD RMER 
MOV #PACACK !GO,RMCS1 (RO) ; LOAD MCS . 
MOV #3,R3 


MOV #DMD !MUR ! DBEN! DBCK ,RMMR1 (RO) 
MOV hh tl aaa (RO) ;LOAD 


10$: 
:;LOAD RMMR1 
RMMR 1 


BNE 10$ ISSUE NEXT Seo IF ~~ NOT 0 
MOV RMDS(RO), — :STORE RMDS AT $BDDA 
BIC #°CVV,$BDDA 


BEQ 20$ ;BRANCH IF VV IS ZERO 
TST RMER10 


er ee ee ee ee ee 
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2834 030030 
2835 
2836 





—=«dTS82 DECODE 7 
2782 027554 001527 BEQ 70$ >BRANCH IF VV SHOULD BE SET 
2783 027556 005037 1140 CLR SGDDAT > SETUP ERROR MESSAGE 
2784 027562 010037 001136 MOV RO, SBDADR | 
2785 027566 062737 000012 001136 ADD #RMDS , SBNADR 
2786 027574 104163 EMT 163 
2787 027576 000522 BR 80$ SKIP 
2788 027600 20$: 
$585 027600 004737 030046 JSR PC,100$ s INITIALIZE AND SET DIAGNOSTIC MODE 
sEXECUTE A READ iN PRESET AND CHECK VOLUME VALID “2 
792 027604 013760 001426 000014 MOV RMER10,RMER1 (RO) LOAD RMER1 3 
2793 027612 012760 000021 900000 MOV #RIP!GO,RMCS1 (RO) :LOAD RMCS1 
r4 027620 012703 000003 MOV #3,R3 ;R3=CLOCK COUNT 
2795 027624 30$: 
027624 012760 141001 600024 MOV #DMD ! MUR! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
2796 027632 012760 041001 000024 MOV ADMD! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
2797 027640 005303 DEC R3 
2798 027642 001370 BNE 30$ : ISSUE NEXT CLOCK IF COUNT NOT ZERO 
r4 027644 016037 O00V12 001142 MOV RMDS (RO), —_ :STORE RMDS AT $BDDAT 
2800 027652 042737 177677 001142 BIC #°CVV, SBDDAT 
2801 027660 001414 BEQ 40$ sBRANCH IF VOLUME VALID NOT SET 
2802 027662 005737 001426 TST RMER10 
2803 027666 001462 BEQ 70$ ;BRANCH IF VOLUME VALID SHOULD BE SE’ 
2804 027670 005037 001140 CLR $GDDAT ;SETUP ERROR MESSAGE 
2805 027674 010037 001136 MOV RO, $BDADR 
062737 000012 001136 #RMDS , SBDADR 
2807 027706 104163 EMT 163 
2808 thay 000455 BR 80$ : SKIP 
2809 027712 40$: 
oa 027712 004737 030046 JSR PC,100$ : INITIALIZE AND SET DIAGNOSTIC MODE 
2812 sEXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED 
2813 027716 013760 001426 000014 MOV RMER10,RMER1 (RO) ;LOAD RMER1 
2814 027724 012760 000051 000000 MOV #WCD!GO,RMCS1 (RO) ;LOAD RMCS1 
2815 027732 012703 000002 MOV #2,R3 ;R3=CLOCK COUNT 
2816 027736 50$: 
027730 0127 141001 000024 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
2817 027744 0127 041001 024 MOV ADMD! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
2818 027752 005 DEC R3 
2819 027754 00137 BNE 50$ : ISSUE NEXT CLOCK IF “COUNT NOY ZERO 
2820 027756 01 000024 001142 MOV RMMR1 (RO), SBDDAT ;STORE RMMR1 AT $BDDAT 
1 bg 776% 04 077777 001142 BIC #*COCC, SBDDA 
2822 027772 00 BEQ 60$ sBRANCH IF OCCUPIED IS RESET 
282 tae 00 001426 TST RMER10 
SB5e 0 00 BEQ 70$ sBRANCH IF OCCUPIED SHOULD BE SET 
2825 030002 00 001140 CLR SGDDAT ;SETUP ERROR MESSAGE 
2826 030006 01 001136 MOV RO, $BDADR 
2827 0350012 062 000024 001136 ADD ARMMR1 , SBDADR 
2828 030020 104 EMT 164 
$855 030022 000 BR 80$ 
2831 ; VOLUME VALID AND OCCUPIED DID NOT SET-SEE IF COMP ERROR WAS ACTIVE 
2832 030024 60$: 
2833 030024 001426 TST RMER10 


BNE 80$ ;BRANCH IF COMP ERROR WAS SET 
:COULD NOT SET VV OR OCCUPIED-SUSPECT DECODE FLOP NOT SETTING 


Le ee ae a ee ——— 
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2 
S2 DECODE 7 SEQ 0153 
2879 fs TEST WITH COMPOSITE ERROR ACTIVE-VERIFY THAT DECODE FLOP 
2840 T SET, AS INDICATED BY VOLUME VALID AND OCCUPIED. 
2841 030034 50S: 
2842 030034 012737 040000 001426 MOV #UNS .RMER10 ;USE UNSAFE TO SET COMP ERROR 
ar 030042 0900611 ER S$ 
sare 030044 000510 803: BR 200$ sEND OF TEST 
2847 - g SETAE AAAAAAAAEAAAAAAE AERA EAAEARAAAKRARAARRAAARAARKRAEARARARRHARAARRE 
2848 : SUBROUT INE USED DURING TEST 
2849 FERRARA ARERR KKEKERRERAAARAARRE THE 
2850 
2851 ZUSING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR. 
$836 : VERIFY THAT VV, ERR, AND OCC ARE ZERO. 
2853 030046 1008: 
2854 030046 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
2855 030052 012760 000001 000024. MOV #DMD.RMMR1(RO) ;:LOAD RMMR1 
2856 012760 041001 000024 MOV #DMD 'MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
2857 030066 012760 000000 000014 MOV #0,RMER1 (RO) :LOAD RMER1 
2858 030074 012760 Q00000 000042 MOV #0,RMER2 (RO) ;LOAD RMER2 
2859 030102 005037 001140 CLR $GDDAT :SETUP FOR ERROR MSG 
2860 030106 010037 001136 MOV RO, $BDADR 
2861 030112 062737 000012 001136 ADD #RMDS , SBDADR 
2862 030120 016037 000012 001142 MOV RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
2863 030126 042737 137777 001142 BIC #*CERR, SBDDAT 
2864 030134 001402 BEQ 110$ BRANCH IF COMP ERROR ZERO 
2865 030136 104143 EMT 143 
2866 030140 000447 140$ :SKIP TEST 
2867 030142 110$: 
030142 016037 000012 001142 MOV RMDS (RO), = :STORE RMDS AT $BDDAT 
2868 030150 042737 177677 001142 BIC #°CVV, SBDDAT 
2869 030156 001402 BEQ 120$ :BRANCH IF VOLUME VALID ZERO. 
2870 030160 104135 EMT 135 
2871 030162 000436 140$ :SKIP TEST 
2872 030164 120$: | 
030164 016037 000024 001142 MOV RMMR1(RO),SBDDAT | :STORE RMMR1 AT $BDDAT 
2873 030172 042737 077777 001142 BIC #*COCC,. SBDDAT 
2874 030200 001407 BEQ 130$ :BRANCH IF OCCUPIED ZERO 
2875 rated 010037 001136 MOV RO, $BDADR :SETUP ERROR MESSAGE 
2876 030 062737 000024 001136 ADD #RMMR 1, SBDADR 
877 030214 104166 EMT 166 
a55 030216 000420 BR 140$ :SKIP TEST 
2880 7TO VERIFY THAT THE DECODE FLOP IS RESET, Lane AN ILLEGAL FUNCTION 
2881 -IN RMCS1 AND VERIFY THAT ILF DOES NOT SET 
sone 030220 O$: 
2883 0302 012760 000024 000000 MOV #ILF24,RMCS1(RO) :LOAD RMCS1 
2884 030 016037 000014 001142 MOV RMER1 (RO) , $BDDAT : STORE RMERI AT $BDDAT 
2885 030 042737 177776 001142 BIC #*CILF ,SBDDAT 
soe O30 42 001410 BEQ 150$ rory IF ILF IS ZERO 
288 4 010037 001136 MOV RO, $BDAD -SETUP ERROR MESSAGE 
030250 062737 000014 001136 ADD #RMER1, SBDADR 
2 030256 104167 EMT 167 
2890 030260 012716 030266 140$: MOV #200$, (SP) :DONT GO BACK TO TEST 
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001226 


001136 


150$: RTS 
200$: 


PC sRETURN TO TEST OR EXIT TEST 


ad J SSAA AAA AA AAAAAAAAAAHAARAARAARAEARARAAAARARHAREARARAKRRET HERE ee 


Z*TEST 53 


SET/RESET VOLUME VALID TES? 


SEPARA TAEAREARAKAARARAAARARKARARERERRERERS RRR RERRE RED 


TST53: 


MOV 
ADD 


AND 


:SCOPE CALL 
ASTACK,SP LOAD THE oy — 
SBASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 :RI = POINTER ATO DEVICE 
#53, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
RO, $BDADR :SETUP REGISTER ADDRESS 
A#RMDS . $BD 
#100$.R2 ;R2=TABLE POINTER 


USE DIAGNOSTIC MODE TO RESET VOLUME VALID 


PC,CNTCLR ' 3GO CLEAR CONTROLLER 

#DMD,RMMR1(RO) LOAD RMMR1 
'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

#0 ,RMER1 (RO) ;LOAD RMER1 

#0 ,RMER2 (RO) ;LOAD RMER2 

RMDS(RO),SBDDAT ;STORE RMDS AT $BDDAT 


#*CVV,$8DDAT 
2 . sBRANCH IF VOLUME VALID ZERO 
ion 


oe THE FUNCTION CODE IN THE TABLE 


30$: 


R3,$TMPO 
#VV ,SGDDAT 
170 


(R2) ,R3 :GET FUNCTION CODE 

aC ILE 76. ~R3 

R3, RCS (RO) :LOAD RMCS1 

1(R2) “GET CLOCK COUNT 

wear? Rs 

#DMD 'DBEN'MUR!DBCK,RMMR1(RO) —: LOAD _RMMR1 
" aemeaiainai ;RMMRI (RO) :LOAD RMMRI 


50$ : ISSUE COCKS TIL R4 ZERO 
RMDS (RO), 1 ted :STORE RMDS AT $8DDAT 


#°CVV, SBDDAT 
40$ ;BRANCH IF VOLUME VALID SET 
;SAVE FUNCTION CODE FOR MSG 


50$ 


aaa THE TABLE POINTER, EXI7 IF DONE 


ADD 





#2,R2 


a a ee 


m1 
io RMO5/3/2 DSKLS TST 1 MACRO V04.00 4-APR-81 01:24:25 PAGE 1$-59 


3 SET/RESET VOLUME VALID TEST SEQ 0155 
2938 030520 105762 000001 TSTB 1(R2) 
2939 030524 100401 BMI 50$ sEXIT IF COUNT IS NEGATIVE 
2940 030526 000701 BR 10$ 
sor) 0305 000403 50$: BR 200$ ; JUMP OVER TABiE 
$3c$ :; TABLE OF FUNCTIGN CODES AND CLOCK COUNTS 
2944 030532 100$: 
2945 030532 020 -BYTE RIP sREAD IN PRESET COMMAND 
soco 030533 003 -BYTE 3 
2948 030534 022 -BYTE PAKACK s;PACK ACKNOWLEDGE COMMAND 
2949 030535 003 -BYTE 3 
2951 030536 000 -BYTE SEND OF TABLE 
Soe 030537 377 } -BYTE -1 - 
ey: 030540 200$: sEND OF TEST 
2956 CT EAR EAE EEE EERE ERA EE 
:*TEST 54 ILLEGAL FUNCTION TEST 
fF AAR EAE EKEERER EE 
030540 TST54: 
030540 000004 ‘ SCOPE :SCOPE CALL 
030542 000240 NOP 
030544 012706 001100 MOV ASTACK,SP :;LOAD THE STACK POINTER 
030550 013700 001276 MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
030554 013701 001466 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
3957 030560 012737 000054 001226 ? MOV #54,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
2958 030566 005002 CLR R2 : INITIALIZE FUNCTION CODE VALUE 
2959 030570 10$: 
2960 030570 004737 054450 JSR PC, SETVV 3;GO SET VOLUME VALID 
030574 000402 BR ‘20% _ ;BRANCH TO 20$ IF NO ERROR 
030576 104000 EMT , 
2961 030600 000460 BR 50$ s;SKIP TEST IF ERROR 
2962 030602 012704 000002 20$: MOV #2 .R4 sR4=CLOCK COUNT 
S3ez sEXECUTE THE TEST FUNCTION CODE AND VERIFY ILF 
2965 030606 012760 041001 000024 MOV #DMD ' MUR 'DBEN,RMMR1(RO) ;LOAD RMMRI 
2966 0350614 010203 MOV R2,R3 :SETUP FUNCTION CODE IN R3 
2967 030616 052703 000001 BIS. #G0,R3 . . 
Secs pene 010360 000000 oon MOV R3,RMCS1(RO) sLOAD RMCS1 
0 6 012760 141001 000024 MOV #DMD ' MUR ' DBEN! DBCK,RMMR1 (RO) ;LOAD RMMR1 
$370 0 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMRI 
71 0 2 005304 ; DEC R4 
as 0 4 001370 BNE 30$ 
73 0 6 016037 001142 MOV RMER1 (RO) , SBDDAT :STORE RMER1 AT S$BDDAT 
74 54 042737 177776 001142 BIC A*CILF.S$BDDAT ;SETUP ACTUAL ILF STATUS 
75 siege] 016237 06 001140 MOV FNCDTB(R2),$GDDAT ;GET EXPECTED ILF STATUS 
76 0306 e5 ela 177776 001140 BIC #*CILF ,SGDDAT 
77 Benere 023737 1140 0011742 CMP SGDDAT , SBDDAT 
oe Oep 001410 BEO 40$ :BRANCH IF ILF IS OK 
3 030706 010037 001136 MOV RO, $BDADR : SETUP FOR ERROR MSG 
030712 062737 4 001136 ADD #RMER1,$BDADR 
2981 030720 010237 001174 MOV R2,$TMPO 


= 154 


| 
| 


2982 030724 
2983 


2984 

2985 930726 
2986 $0585 
2987 030732 
2988 736 


ee 


S58 


ed el el el el el eel el el el 


VFWN ~OOOnOuf wr Oo 


COOCOQoOooCOooooo 


104171 


062702 
022702 
103401 
000713 


012737 
005002 


g 


SLSSlSasksF 
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ILLEGAL FUNCTION TEST 


000002 
000076 


054450 


041001 
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001226 


000024 


000024 
000024 


001142 
001142 


063416 


001140 
001142 


50$: 


EMI 171 
j ADVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST 
"ADD #2.R2 
CMP #ILF76.R2 
BLO 50$ 
BR 10$ 


sEND OF TEST 


Wee Oe SeRRRSSSRAAARRRARRRRSARR SARA R RAR RR RE RERRRRRRSR RRS RSS SSE SE EES 


=*TEST 55 


OCCUPIED TEST , 


fF AAA RARER REE EEA KERR ER KKK REE 


TST55: 


a >SCOPE CALL 

MOV #STACK ,SP ;LOAD THE STACK POINTER 

MOV SER :RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 :R1_ = POINTER TO DEVICE 

MOV AS5 .STESTN :7SET TEST NUMBER IN APT MAIL BOX 
CLR R2 > INITIALIZE FUNCTION CODE 


:GET THE DEVICE READY 
10$: 


JSR PC, SETVV ;GO SET VOLUME VALID 

BR 20$ ;BRANCH TO 20$ IF NO ERROR 
‘ 

BR 50$ 


ENABLE DEBUG CLOCK AND LOAD THE FUNCTION CODE 
"MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV R2,R3 *ASSEMBLE FUNCTION CODE AND 
BIS #G0,R3 - 560 BIT IN R3 | 
MOV R3,RMCS1(RO) —— : LOAD _RMCS1 | 
MOV #2.R4 ! =R4=CLOCK COUNT 
STEP. THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE 
"MOV #DMD 'MUR!DBEN'DBCK,RMMR1(RO) — ; LOAD RMMR1 
MOV #DMD | MUR ! BEN. RMMR 1 (RO :LOAD RMMR1 
BNE 30$ 3 : ISSUE NEXT CLOCK TIL R4 ZERO 
:VERIFY OCCUPIED STATUS “ | 
MOV. __—- RMMR1(RO) .SBDDAT - STORE RMMR1 AT $BDDAT 
BIC #*COCC, $BDDAT 
CLR $GDDAT : GENERATE OCC FROM AOE 
BIT #AOE , FNCDTB(R2) 
BEQ 35$ 
MOV #OCC. $GDDAT 
35$: CMP $GDDAT , SBDDAT 





BEQ 40$ ;BRANCH IF OCC IS OK 


;SAVE FUNCTION CODE 


MOV R2,$TMPO 
3 SETUP REGISTER ADDRESS 


MOV RO, $BDADR 


ee ee ee 


SEG 0156 


-—-- _—— - 


CZRMPBO RMO5/%3/2 DSKLS TST 1 
155 OCCUPIED TEST 


| 
3027 Og 1¢0 062737 000024 
| 031134 10617 


2702 000002 
022702 000076 






031154 
031154 
031156 000240 
031160 012706 0011 
031164 013700 001276 
031170 013701 001466 
031174 012737 j 
3041 
$042 
$043 031202 004737 054674 
3044 031206 012760 000001 
5 051214 012760 041001 
6 031222 012760 000000 
7 031230 012760 000000 
9 
$090 031236 012760 177777 
$051 031244 012760 177777 
¢ 051252 012760 177777 
54 
55 031260 012760 000021 
56 031266 012702 000003 
57 031272 
38 0512/2 012760 141001 
59 031300 012760 041001 
031306 005502 . 
1 031310 001370 ° 
031312 016002 000006 
5 031316 005702 
031320 001413 
7? 031322 016002 000034 
8 031326 042702 176000 
9 031332 001406 
031334 016002 000032 
71 031340 042702 161577 
072 031344 001401 


— 


~ 
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001136 


001226 





ADD #RMPAR 1. SBDADR 
EMT 173 
BR 50$ 
jADVANCE TO NEXT FUNCTIONCODE, EXIT IF DONE 
ADD #2,R2 
CMP #ILF76.R2 
BLO , 50S :EXIT IF DONE 
BR 
SOs: sEND OF TEST 
5 ERATE AEE AERAREKERAEARKEERHEKAEAAREARRERKEKEREE 
<STEST 56 READ IN PRESET TEST 
= 5 EAE EKKEKEKKAAAERAEERREAAKERRERERERKEHEREER ED 
TST56: 
SCOPE :SCOPE CALL 
MOV A#STACK,SP :LOAD THE STACK ShOINTER 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 R1 = POINTER Ay DEVICE 
MOV #56, $TESIN <=SET TEST NUMBER IN APT MAIL BOX 
= CLEAR AND _ENABL E DEBUG CLOCK - LEAVE VOLUME VALID RESET 
PC,CNTCLR :GO CLEAR CONTROLLER 
"OV ADMD , RMR (ic kO) =LOAD RMMRI 
MOV 'MUR 'DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #0.RMER1(RO) ;:LOAD RMER1 
MOV #0,RMER2(RO)  § :LOAD RMER2 
:LOAD ALL ONES IN RMDA, RMOF 
MOV #~1 "RADA CRO) :LOAD RMDA 
MOV #-1,RMDC(RO) += LOAD RMDC 
MOV #-1.RMOF(RO) § :LOAD RMOF 
:LOAD READ IN PRESET COMMAND AND STEP THE CLOCK TILL SET PULSE 
MOV #RIP!GO,RMCS1 (RO) :LOAD RMCS1 
a MOV #3,R2 *R2=CLOCK COUNT 
"MOV ADMD 'MUR'DBEN!DBCK,RMMR1(RO) — : LOAD RMMR1 
MoV #DMD ! MUR! DBEN MMR (RO) :LOAD RMMR1 
BNE 10$ : ISSUE 3 CLOCKS 
:SEE IF RMDA OR RMDC OR RMOF IS ZERO 
MOV RMDA(RO) .R2 ; STORE. RMDA AT R2 
BEQ 20$ BRANCH IF RMDA IS ZERO 
MOV RMDC (RO) ,.R2 =STORE RMDC AT 
BIC — ~ #XNUDC,R2 ; CLEAR UNUSED BITS 
BEO 20$ CH IF RADC IS ZERO 
MOV RMOF (RO) .R2 : STORE RMOF AT R2 
BIC #XNUOF ,R2 : CLEAR UNUSED BITS 
BEQ 20$ “BRANCH IF RMOF IS ZERO 


SEQ 0157 


sea sbennee 
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3077 031350 
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=ON EERAD 
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co 

Se 
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— —3 —3 —3 —) — 
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CZRMPBO RMO5/3/2 DSKLS 
READ IN PRESET TEST 


104174 


TST 1 
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001226 


7 READ a ne DIDNT CLEAR ANY OF THE 3 REGISTERS 


20S: sEND OF TEST 
FSSA AAAAAAAAA AREAS AAAAAARAEAHAAAAAAAAAAARAAEARAREREAARARKARRKR ARERR Ee 
<STEST 57 RIP/RMOF TEST 
FTAA AAA AAA AAA EATAEEAAARAAAAERAEERAAEAAETRERAREREREREEREKRR RES 
1S157: 
—* sSCOPE CALL 
MOV #STACK. SP [LOAD THE STACK POINTER 
MOV SBASE. >RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
MOV #57, $TESIN >:SET TEST NUMBER IN APT MAIL BOX 
MOV RO. $BDADR :SETUP REGISTER ADDRESS AND 
ADD #RMOF . 
CLR $GDDAT :EXPECTED RMOF 
: INITIALIZE AND SET BITS IN RMOF 
JSR PC, CNTCLR :GO CLEAR CONTROLLER 
MOV #DMD ,RMMR1 ( =LOAD RMMR1 
MOV #DMD'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #O.RMER1(RO)  :LOAD 
MOV #0.RMER2(RO)  =LOAD RMER2 
MOV #-1,RMOF(RO) § :LOAD RMOF 
sEXECUTE. A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE 
MOV #RIP'GO,RMCS1 (RO) :LOAD RMCS1 
a MOV #3,R2 *R2=CLOCK COUNT 
"(MOV #DMD 'MUR'!DBEN'DBCK,RMMR1(RO) —-: LOAD _RMMRT 
mov #DMD !MUR !DBEN, RMR (RO) :LOAD RMMR1 
BNE 10$ : ISSUE 3 CLOCKS 
:VERIFY THAT RMOF IS ZERO 
MOV RMOF (RO). SBDDAT - STORE RMOF AT $BDDAT 
BIC #XNUOF $BDDA 
BEO 20$ :BRANCH IF RMOF IS ZERO 
EMT 175 
208: :END OF TEST 


ST REAR RAEE EAE REAERAAEEEAEEAEEEEAAEEEAREKEREREKEHEEEE 


s*TEST 60 


RMDA/RMDC/RIP TEST 


Fo CAAA AARA AAA AAA AAEAAAEEREKERARAEEEEAREEAEAARAAAERERAREARERAEEE EE 


TS160: 





sSCOPE CALL 
#STACK ,SP :LOAD THE STACK POINTER 
SBASE .RO :RO = UNIBUS ADDRESS 
TSTQUE ,R1 7R1 = POINTER TO DEVICE 
#60, $TESTN =:SET TEST NUMBER IN APT MAIL BOX 


LO ————— a ee 


SEQ 0156 


CZRMPBO RMO05/3/2 DSKLS TST 1 
760 RMDA/RMDC/RIP TEST 


Ww 





110 
111 031556 
a148 
| 311 
3114 031562 
3115 031566 
| 311$ 031574 
117 Oat oue 
3118 osc) 
3119 031616 
21$9 031624 
| He 
1235 031632 
124 031640 
125 031644 
i tyee 
3188 031652 
127 031660 
3128 031662 
31 
31 
131 031885 
1 . 031672 
155 031676 
134 031700 
135 tae. 
: 031712 
1 
139 031714 
140 031714 
141 8 1722 
126 17 
145 031732 
144 0317 
145 031744 
146 031746 
147 
3148 


oo 9o0O0O GOOCOCOCO 
CAIN WA Wt 
as ed ee eed ee eed od 
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S25 


005037 


f 
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— abated ad 
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VN 
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001140 
054674 
000001 
041001 
000000 
177777 
177777 


000021 
000003 


D 13 
M4020 VO6.00 4-APR-B1 01:26:25 PAGE 13-63 


sEXECUTE READ IN PRESET TILL SET PULSE 
#RIP!GO, ) 


SGDDAT 


—- DEBUG eo THEN PRESET RMDA AND RMDC 


PC.CNICLR 7GO0 CLEAR CONTROLLER 
RO) ;LOAD RMYR1 


#0 ,.RMER1 (RO) 4 RMER1 
#0 ,RMER1 (RO) sLOAD RMERI 
#-1 .RMDA(RO) sLOAD RMDA 
#-1 ,RMDC (RO) ;LOAD RMDC 


GO,.RMCS1(RO 
#3,R2 


ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
beens (RO) ;LOAD RMMR1 


2 
10$ : ISSUE 3 CLOCKS 


ZERO 7 
RMDA(RO),.SBDDAT ;STORE RMDA A! $BDDAT 
SBDDAT 


;BRANCH IF RMDA RESET 


;LOAD RMCS1 


20$ 
RO,$BDADR 
ARMDA , SBDADR 
176 


ZERO 
RMDC (RO) oe :STORE RMDC AT $BDDAT 


#XNUDC , SBDDA 
30$ 7;BRANCH IF RMDC RESET 
RO, S8DADR 
#RMDC ,SBDADR 
302 
sEND OF TEST 


WeASAAASAAALESASAALESASAAAARALAALARARASSARSRAAARS SSSA SS ESAS AS SS SSE © | 


OFFSET COMMAND TEST 


we DALAAAAARRRREAAAASZARASAASASRSRASAASALASARAARARSARSARAL ASA S RS SASS SSE SS | 


CLR 
7 CLEAR. 
SR 
000024 MOV 
000024 MOV 
000014 MOV 
900014 MOV 
MOV 
000034 MOV 
000000 MOV 
MOV 
10$: 
000024 MOV 
000024 MOV 
DEC 
BNE 
_ : VERIFY RMDA IS 
001142 MOV 
TST 
BEQ 
MOV 
001176 ADD 
EMT 
: VERIFY RMDC IS 
20$: 
001142 MOV 
001142 BIC 
BEQ 
MOV 
001136 ADD 
EMT 
30$: 
s*TEST 61 
TST61: 
SCOPE 
NOP 
MOV 
MOV 
MOV 
001226 MOV 
MOV 
001136 ADD 
001140 MOV 
JSR 
RR 


> SCOPE CALL 
#STACK,SP ;LOAD THE STACK POINTER 
SBASE .R 7RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
#61,$TESTN 327SET TEST NUMBER IN APT MAIL BOX 
RO, $BDADR 
#RMDS , SBDADR 
#0M ,SGDDAT 
PC ,SETVV :GO SET VOLUME VALID 
10$ ;BRANCH TO 10$ IF NO ERROR 


Se ee ee 


SEQ 0159 


re er ee ee ee ee t™*™S 


—_—_—— -— ee ce = 
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CZRMPBO RMO5/3/2 DSKLS 


OFFSET COMMAND 


WA AANA 
7 ee > 
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MMM 
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nN 
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090034 


001226 


001136 


000032 


000024 


EMI 
BR 408 
10$: 
MOV #0. RMDC (RO) :LOAD RMDC 
: ENABLE DEBUG CLOCK AND EXECUTE OFFSET COPMAND 
MOV #DMD 'MUR 'DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #OFFSET'GO.RMCS1(RO) <=LOAD RMCS1 
a MOV #2,.R2 [R2=CLOCK COUNT 
"MOV #DMD:MUR!DBEN!DBCK,RMMRT(RO) = LOAD RMMRT 
mov #DMD ! MUR! DBEN RMR (RO) :LOAD RMMR1 
BNE 20$ : ISSUE 2 CLOCKS 
: VERIFY THAT OFFSET MODE IS SET 
MOV RMDS(RO),.$BDDAT :STORE RMDS AT $BDDAT 
BIC #°COM, SBDDAT 
BNE 40$ :BRANCH IF OM IS SET 
EMT 200 
40S: :END OF TEST 
FL REAR RRRRR HERS 
-*TEST 62 RETURN TO CENTER TEST 
JT AERA AAR AERA AEE REAR 
TST62: 
SCOPE :SCOPE CALL 
MOV #STACK,SP :LOAD THE STACK POINTER 
MOV SBASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #62, $TESTN >:;SET TEST NUMBER IN APT MAIL BOX 
MOV RO, SBDADR 
ADD #RMDS , SBDADR 
JSR PC, SETVV :G0 SET VOLUME VALID 
BR 10$ “BRANCH TO 10$ IF NO ERROR 
BR 60$ 
:SeT OFFSET DIRECTION AND OFFSET 
"MOV WOFD,RMOF(RO)  ;LOAD RMOF 
JSR PC, SETOM “GO SET OFFSET MODE 
BR “BRANCH TO 20$ IF NO ERROR 
EMT 
ENABLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND 
oe PC, SETVV :GU SET VOLUME VALID 
BR 30$ =BRANCH TO 30$ IF NC ERROR 
BR 608 
30$: 
MOV #DMD!MUR ‘DBEN.RMMR1(RO) :LOAD RMMR1 


me ee we ee 


; 


CZRMPBO RMOS/3/2 DSKLS TSI 1 
T6é2 RETURN TO CENTER TEST 
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000000 


001226 


001136 


40%: 


7 VERIFY 


; VERIFY 
50$: 


60$: 


MOV #RTC!GO,RMCS1(RO) sLOAD RMCS1 

MOV #2 ,R2 

MOV #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 

“44 Set aaa arias ;LOAD RMMR1 

BNE 40$ : ISSUE 2 CLOCKS 

THAT OFFSET MODE IS RESET 

MOV RMDS(RO),SBDDAT ;STORE RMDS AT S$BDDAT 

BIC #°COM, $BDDAT 

BEQ 50$ ;BRANCH IF OFFSET MODE RESET 
CLR $SGDDAT 

EMT 201 

THAT OFFSET DIRECTION IS RESET 

MOV RMOF (RO) ,SBDDAT ;STORE RMOF AT $BDDAT 

BIC #“COFD,SBDDAT 

BEQ 60$ 7BRANCH.IF OFD IS RESET 
CLR $GDDAT 

MOV RO, $BDADR 

ADD #RMOF , SBDADR 

EMT 202 


sEND OF TEST 


SF AAA RAE AAA AERA EEE EAE ERRERS 


S*TEST 63 


“ 
5 REAR AEAAEAAAEAAAAEE EEE ARAE EE AEEEAEAREEEEAAEEAERAAEEEAKEEAEEEHERHEE ED 


TST63: 


10$: 


SCOPE 


BR 
EMT 


RMDC CLEAR OFFSET TEST 


sSCOPE CALL 
ASTACK , SP sLOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#63,$TESTN 32SET TEST NUMBER IN APT MAIi BOX 
RO, $BDADR 
#RMDS , SBDADR 
PC,SETVV :GO SET VOLUME VALID 
10% ;BRANCK TO 10$ IF NO ERROR 


40$ :SKIP REST OF TEST 


PC,SETOM :GO SET OFFSET MODE 
20$ ;BRANCH TO 20$ IF NO ERROR 


— THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO 


#0,RMDC (RO) ;LOAD RMDC 

RMDS(RO) ,SBDDAT ;STORE RMDS AT $BDDAT 
#*COM, SBDDAT 

40$ 

$SGDDAT 


ee eS sl ss tse Ne _ <— 


LLL LS CT EE eens 
SE Se —— 
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763 RMDC CLEAR OFFSET TEST SEQ 0162 
3235 032652 104203 EMT 203 
3237 032654 40$: sEND OF TEST 
3238 
3239 EEE TEETER ERRATA E REAR REREEEEARERRRER ER ERE EEE ERED 
S*TEST 64 EBL CLEAR OFFSET TEST 
EERE EEE AEE AERA AREER ATER EERERAREE EE RRRR RHE RRR OER 
032454 $164: 
032454 000004 SCOPE 3SCOPE CALL 
032456 000240 NOP 
032460 012706 001100 MOV ASTACK,SP LOAD THE STACK POINTER 
032464 013700 001276 MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
032470 013701 001466 MOV TSTQUE ,R1 :RI = POINTER TO DEVICE 
3240 032474 012737 000064 001226 _ MOV . #64 ,STESIN ;SET TEST NUMBER IN APT MAIL BOX 
3241 032502 013737 001334 001420 MOV LSTRK,RMDAO ;SETUP LAST TRACK AND 
e576 032510 112737 00003 001420 MOVB #31.,RMDAO ;LAST SECTOR 
3245 9032516 010037 001136 MOV RO, $BDADR :SETUP REGISTER FOR ERROR MSG 
sce C32522 062737 OCO0012 001136 ADD #ARMDS , SBDADR 
3246 032530 004737 054450 JSR PC,SETVV :;GO SET VOLUME VALID 
032534 000402 BR 10$ ;BRANCH TO 10$ IF NO ERROR 
032536 104000 EMT 
3247 032540 000440 BR 30$ SKIP REST OF TEST IF ERROR 
3248 032542 10$: 
3249 032542 004737 054572 JSR PC,SETOM 3;GO SET OFFSET MODE 
032546 000401 BR 20$ :BRANCH TO 20$ IF NO ERROR 
032550 104000 EMT 
3250 032552 20$: 
3251 032552 012760 010000 000032 MOV #FMT16,RMOF (RO) ;LOAD RMOF 
3526 032560 013760 001420 000006 MOV RMDAO.RMDA(RO) ;LOAD RMDA 
3254 s;FORCE END OF BLOCK AND VERIFY THAT OFFSET MODE IS CLEARED 
3255 032566 012760 041001 000024 MOV ADMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMRI 
$525 032574 012760 000001 000000 MOV #GO,RMCS1(RO) ;LOAD RMCS1 
257 032602 012760 061001 000024 MOV #DMD ! MUR ' DBEN! DEBL , RMMR1 (RO) ;LOAD RMMR1 
3258 0326190 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR 1 
3259 032616 016037 O000T2 001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT SBDDAT 
3260 Bases 042737 177776 001142 BIC #°COM, SBDDAT 
3261 032632 001403 BEQ 30$ ;BRANCH IF OFFSET IS ZERO 
eset 032634 005037 001140 CLR SGDDAT 
; 63 032640 104204 EMT 204 
rf: 032642 30$: ZEND OF TEST 
sScx SRA TREE EAE ETE EEA ERATE REET ERATE EERE 
SSTEST 65 RUN AND GO TEST 
RRR EEE EEE ERE EEE EEE RARER ERE REE 
032642 18165: 
032642 000004 SCOPE :SCOPE CALL 
032644 000240 NOP 
032 016006 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
032652 013700 001276 MOV SBASE ,RO 3RO = UNIBUS ADDRESS 
032656 013701 001466 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
032662 012737 000065 001226 MOV #65. STESTN SET TEST NUMBER IN APT MAIL 80x 


326? 


eee ee 


ee ee ee we ee ee ee eee + 


o-oo 
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TAS RUN AND 


5268 032679 005037 001140 CLR SGDDAT s INITIALIZE EXPECTED RESULT 
3269 032674 005002 CLR R2 sINTIALIZE FUNCTION CODE 
3270 032676 010037 001136 MOV RO. SBDADR 

$550 032702 062737 000024 001136 ADD #RMMAR 1 , SBDADR 


a THE MASSBUS AND ENABLE DEBUG CLOCK 


327 

3274 032770 

JSR PC, CNTCLR :GO CLEAR CONTROLLER 
#DMD L RMMR | 


3275 032710 004737 oer 


‘ie ae 





| 00000 : 
3277 032722 012760 040001 000024 MOV ADMD '! DBEN, RMMR71 (RO) :;LOAD RMMR1 
3278 032730 012750 000000 000014 MOV #0, RMER1(RO) :LOAD RMER1 
$527 032736 012760 000000 000042 MOV #0, RMER2 (RO) sLOAD RMER2 
3281 z:LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP 
3282 032744 010203 MOV R2,R3 zASSEMBLE FUNCTION CODE AND GO 
3283 032746 052703 900001 BIS #G0,R3 
3284 032752 012737 200 001534 MOV #200, WATCH :SET WATCHDOG TIMER VALUE 
032760 004777 146552 JSR PC ,aCLOCk :START THE CLOCK 
3285 032764 010360 000000 MOV R3.RMCS1(RO) :LOAD RMCS1 
3286 032770 15$: 
0327 016037 000024 001142 , MOV RMMR1 (RO), $SBDDAT : STORE RMMR1 AT $SBDDAT 
3287 032776 042737 137777 001142 BIC #*CRG,S$BDDAT 
3288 033004 023737 001140 001142 CMP SGDDAT . $BDDAT 
3289 033012 001411 BEQ 20$ ;BRANCH IF RUN AND GO FLOP Ok 
3290 033014 005737 001534 TST WATCH : TAKE ANOTHER SAMPLE IF CLOCK NOT ZERO 
3291 03 1363 BNE 15$ 
3292 033022 004777 146512 JSR PC,@STOPCL :STOP THE CLOCK 
3295 033026 010237 001174 MOV R2,$TMPO :SAVE FUNCTION CODE FOR MSG 
3294 033032 104205 EMT 205 
3295 033034 41 RA 40% :SKIP REST OF 
3296 033036 208: 
$5on 033036 004777 146476 JSR PC ,aSTOPCL :STOP THE CLOCK 
3299 zADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE 
3 033042 062702 000002 ADD _ 
3301 033046 022702 000076 CMP HILF76,R2 
sent 033052 103407 BLO 40$ zEXIT IF DONE 
330 peepee 020227 000050 CMP R2,AWCD > CHANGE EXPECTED RESULTI IF 
3304 033060 103403 BLO :DATA COMMAND 
3305 033062 012737 040000 007140 MOV ARG, SGDDAT 
3509 033070 000707 30$: BR 10$ sREPEAT TEST 
33 S 033072 40$: sEND OF TEST 
} 10 SERRE REE RERARE AAA ETA AKA ARERR EE 
“STEST 66 SET IAE TEST - 
CF TAREE AAA REE 
033072 TST66: 
033072 000004 SCOPE :SCOPE CALL 
033074 000240 NOP 
033076 012706 001100 MOV ASTACK, SP :LOAD THE STACK POINTER 
033102 013700 001276 MOV $BASE RO :RO = UNIBUS ADDRESS 
Bee 19 13701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
377 033112 012737 000066 001226 MOV #66, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
$10 033720 012702 033266 MOV #100$,R2 :R2=TABLE POINTER 


i - - 


se AS -S a EeeeeeEeEee— 
ee ee - 


TT em - 
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'66 AE TEST j 


SET ! SEQ 0164 
3313 033124 108: 
$314 Ora i$s 004737 (€54450 JSR PC .SETVv 7GO SET VOLUME VALID 
033130 000402 BR 208 [BRANCH TO 20$ IF NO ERROR 
033132 104000 EMT 
3315 933134 0004653 BR 50s >SKIP REST OF TEST 
$317 0331 LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT 10 18 
3319 repr 012760 177777 000006 ; MOV #-1 ,RMDA(RO) :LOAD RMDA 
3320 033144 012760 177777 000034 MOV #-7 ,RMDC (RO) LOAD RMDC 
an5) 033152 012760 000000 000032 MOV #0,RMOF (RO) sLOAD RMOF 
3355 sENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCS] WITH GO ON 
3324 033160 012760 041001 000024 MOV #DMD ' MUR! DBEN,RMMR1(RO) :LOAD RMMR1I 
3325 O35156 111203 MOVB (R2) .R3 
33 $ 033170 042703 177701 BIC #*CILF76.R3 
3327 033174 052703 000001 BIS #G0,R 
3328 033200 010360 000000 MOV R3,RMCS1(RO) LOAD RMCS1 
3329 033204 116204 000001 MOVB 1(RZ) RG :GET CLOCK COUNT 
3330 633210 042704 177400 BIC #°(377,RG 
333¢ -CLOCK THE COMMAND SEQUENCER 
3333 033214 30$: 
33 Beas 012760 141001 000024 MOV #DMD ' MUR ! DBEN! DBCK, RMMR1 (RO) :LOAD RMMR1 
$3 5 03 $4 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
3 Ba35 0 005304 DEC RS 
HELA 033232 001370 BNE 30$ 
3349 :SEE IF IAE HAS SET 
3340 033234 016004 000014 MOV RMER1(RO) RG STORE RMER1 AT RG 
og Be ase0 042704 175777 BIC #*CIAE RG 
74} 033244 (001007 BNE 50$ sBRANCH IF JAE SET 
3344 :IAE DID NOT SET = TRV ANOTHER FUNCTION CODE 
5345 033246 062702 000002 ADD #2,R2 
Hg 03 $26 105762 000001 TSTB 1(R2) 
347 Rs 56 100401 BMI 40$ ;BRANCH IF ALL CODES TRIED 
ee05 33260 000721 B8 10$ 
$356 > CANNOT SET IAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE 
51 t 262 40$: 
; 36 33262 104206 EMT 206 
3 033264 000411 50$: BR 2008 : JUMP OVER TABLE 
8 TABLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST 
033266 100$: 
58 Bee 66 030 -BYTE SEARCH : SEARCH COMMAND 
59 033267 002 -BYTE 2 
1 Ose 70 004 -BYTE SEEK SEEK COMMAND 
a 033271 002 .BYTE 2 
364 03327 062 -BYTE WH zWRITE HEADER COMMAND 
365 833558 002 -BYTE 2 


3 
i364 033274 052 -BYTE WCH :WRITE CHECK HEADER COMMAND 





eee 


~~ ee 
LLL LS Sts 


; 


cZR ore RMOS/ 45/2 OSKLS 
SET [AE TEST 


_ 033275 002 


3370 033276 072 
3371 033277 002 


3372 
3373 033300 960 
3374, 033301 002 
3375 
2376 033302 «050 
3377 033302 002 
3378 
3379 033304 070 
3380 033305 002 
3387 033306 000 
3383 033307. (377 
2384 
3385 033310 
3386 
3387 
033310 
033310 000004 
033312 000240 
033314 012706 
033320 013700 
033304 013701 
033330 012737 
3388 
338 033336 005002 
3390 033340 
3391 033340 004737 
033344 000402 
033346 104 
3292 083350 000472 
339% 
3304 
3395 
396 033352 
3397 033352 012760 
398 033360 012760 
99 033366 012760 
00 
2 033374 012760 
03 033402 010203 
04 033404 052703 
05 033410 010360 
3209 
3408 033414 012704 
$409 033420 
033420 012760 
$410 033406 012760 
3411 0334 5304 


TST 1 


054450 


177777 
177777 
000000 
041001 


000001 
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001226 


000006 
000034 
000032 


000024 


000024 
000024 


-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTe 


-BYTE 
-BYTE 


200$: 


SEQ O07 


2 

> sREAD HEADER COMMAND 

a ;WRITE DATA COMMAND 
sWRITE CHECK DATA COMMAND 
a ;READ DATA COMMAND 


sEND OF TABLE 


' 
ant 


sEND OF TEST 


FTAA AAR AAA EAR EEE EEK EEAEREARERRERRAR KER ERE 


SSTEST 67 


SEARCH, SEEK, READ, WRITE TEST 


Aleta eeRRRERERSRAARAARARARESAAAA RARER RRR SRR RRR SRA RR RRR RASS SS | 


18767: 


10$: 


BR 
EMT 
BR 


sSCOPE CALL 
ASTACK,SP :LOAD THE Hye a 
$BASE ,RO :RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#67 ,STESTN > SET TEST NUMBER IN APT MAIL BOX 


R2 ; INITIALIZE FUNCTION CODE 


PC,SETVV :GO SET VOLUME VALID 
20$ ;BRANCH TO 20$ IF NO ERROR 


50$ 


; LOAD ee SECTOR AND CYLINDER ADDRESS AND SET FORMAT 


;TO 18 BIT 
O$: 


#-1 ,RMDA(RO) + LOAD RMDA 
#~1 ,RMDC (RO) ;LOAD RMDC 
#0 ,RMOF (RO) [LOAD RMOF 


sENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCS1 WITH GO ON 


#DMD! MUR! DBEN,RMMR1 (RO) ;LOAD RMMR1 
R2,R3 sASSEMBLE CODE AND GO 


#G0,R3 
R3,RMCS1(RO) sLOAD RMCS1 


;CLOCK THE COMMAND SEQUENCER TO SET PULSE 
MOV #2,R4 





ADMD ! MUR! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
halal (RO) ;LOAD RMMR1 


ee ee ee 2 ee ee ee 


A <ssn-sssnSnnesee 
| rr rr re me ee = 


— - 


CZRMPBO RMO 
167 SEARC 


EEE 
3 


MMr-VPP 


DWNAUEwW 


PREY LEERY EEEEES  ¥¢eeey 


033436 


eeeeeere 
WOBDWNOWUS wry 


mn Nm 
nN 


el elelelelea) 
WWNAs 
WANNA 
MAA 
ea NENG 

MmMOPron 


FANVISS 


eee REPEL EP ELE EES 
SSESs . 

SOOCSCOCO OBOOCCOOO 

WWAANAA AWW 
WWAA AWWA 


o 
& 


a 


MUNITIES HLL HELE HSE 
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e 
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SEEK, READ, WRITE TEST 


000014 
042737 175777 
01 063416 
042737 175777 
023737 001140 
10037 001136 

37 


000014 
010237 001174 


062702 000002 
023702 000076 


737 054450 


a 000000 
013760 001420 
O12 000000 


041001 
000031 
000002 
760 141001 

041001 


ABLE 
:STORE RMER1 AT $BDDAT 


sASSEMBLE EXPECTED IAE 


sBRANCH IF IAE OK 
:SET UP ERROR MSG 


sSKIP REST OF TEST 


BNE 30$ 2 
: VERIFY IAE ACCORDING TO FUNCTION CODE 1 
001142 MOV RMER1 (RO) ,SBDDAT 
001142 BIC #°CIAE, $BDDAT 
001140 MOV FNCDTB(R2) , $GDDAT 
001140 BIC #*CIAE, SGDDAT 
001142 CMP $GDDAT, SBDDAT 
BEQ 40$ 
MOV RO, $BDADR 
001136 ADD R1,$BDADR 
MOV R2,$TMPO 
EMT 207 
BR 50$ 
jADVANCE TO NEXT FUNCTION CODE - EXIT IF DONE 
ADD #2,R2 
CMP ILF76,R2 
BLO 50$ 
BR 10$ 


50$: 


sEND OF TEST 


Whe SSAAALALASARASARARSRARASRAASRRASSARRARASARARARSSASSES SERA SSSA SESS ES | 


**TEST 70 


INVALID TRACK/SECTOR TEST 


CF ERA RARER AERA EAE KEKEEKKEREKEEKEE 


:LOAD THE STACK POINTER 

;RO = UNIBUS ADDRESS 

;R1_ = POINTER TO DEVICE 

::SET TEST NUMBER IN APT MAIL BOX 


> INITIALIZE TRACK ADDRESS 
sSETUP FIRST INVALID ADDRESS 


:GO SET VOLUME VALID 
s;BRANCH TO 20$ IF NO ERROR 


:SKIP REST OF TEST 


;LOAD RMCS1 


;LOAD RMMR1 


TST70: 
SCOPE :SCOPE CALL 
NOP 
MOV ASTACK,SP 
MOV SBASE ,RO 
MOV TSTQUE ,R1 
001226 MOV #70,STESTN 
001420 V LSTRK,RMDAO 
INCB RMDAO+1 
10$: 
JSR PC,SETVV 
BR 20$ 
EMT 
BR 100$ 
:CLEAR DESIRED CYLINDER, LOAD INVALID TRACK ADDRESS, AND SET 
bag BIT FORMAT 
000034 MOV #0,RMDC (RO) ;LOAD RMDC 
000006 MOV RMDAO,RMDA(RO) ;LOAD RMDA 
000032 MOV #0,RMOF (RO) ;LOAD RMOF 
sEXECUTE A SEARCH COMMAND TO WHERE ‘‘SET PULSE’’ IS ACTIVE 
000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
000000 MOV #SEARCH!GO,RMCS1(RO) 
308 MOV #2,R3 , 
900024 MOV #DMD ! MUR ' DBEN! DBCK, RMMR1 (RO) 
000024 MOV #DMD 'MUR'DBEN,.RMMR1(RO) ;LOAD RMMR1 





mn rm ee eee eee 


SEQ 0166 
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005303 
001370 


012737 
012737 


001420 
001420 


001100 
001276 
001466 
000071 
001467 
054450 
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D TRACK/SECTOR TEST 


001142 
001142 
001140 


001136 
001174 


000200 
001420 


000200 


001226 
001446 


000034 
000006 


000024 
000000 


000024 
000024 


7 VERIFY 


50$: 


100$: 


DEC 
BNE 


EMT 


TSTB 
BEQ 

iNCB 
CMPB 


BLOS 
MOV 


INC 


CMPB 


BLOS 


IS SE 


R3 
30$ ISSUE 2 CLOCKS 


T 
RMER1 (RO) , SBDDAT 
#“CIAE , SBDDAT 
40$ 


;STORE RMER1 AT S$BDDAT 


;BRANCH IF IAE IS ON 
;SETUP ERROR MESSAGE 


fies TO NEXT RMDA ADDRESS 


RMDAO+1 ;TESTING INVALID SECTORS ? 
50$ svés !! 

RMDAO+1 : INCREMENT TRACK ADDRESS 
RMDAO+1,4128. ;DONE ? 

10$ zNO, TEST NEXT TRACK ADDRESS 
#29. ,RMDAO + te SECTCR ADDRESS AND 
RMDAOG > INCREMENT SECTOR ADDRESS 
RMDAO #128. é ? 

10$ sNO, TEST NEXT SECTOR ADDRESS 


'WeStiLRAASRASSALEAAASARALSAALARAAAASAASRA SESE SELES SSS SSS S SS AS SSSA SS | 


“*TEST 71 


TST71: 


10$: 


20S: 


SENABLE 


30$: 


EMT 
BR 


MOV 
MOV 


INVALID CYLINDER TEST 


S KKK KKKREKEKREKEKEKEEKEEKEAEEKEEKEEKCKKKEEKERKEKKEREKKEEKKKKEKEEKEKEKEHEKKEEKEKE 


>SCOPE CALL 
ASTACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
#71 ,$TESTN ;zSET TEST NUMBER IN APT MAIL BOX 
#823. ,RMDCO :SET FIRST INVALID CYLINDER 
PC ,SETVV :GO SET VOLUME VALID 
20% | ;BRANCH TO 20$ IF NO ERROR 
50$ ;SKIP IF ERROR 
RMDCO,RMDC(RO) ;LOAD RMDC 
#0 .RMDA(RO) ;LOAD RMDA 


DEBUG CLOCK AND EXECUTE SEARCH C 
V ADMD ! MUR ! DBEN 


OMMAND 
=. eRMMR1(RO) ;LOAD RMMR1 
ASEARCH!GO,RMCS1(RO) ;LOAD RMCS1 


#DMD '! MUR ! DBEN! DBCK ,RMMR1 (RO) 


;LOAD RMMR1 
#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMRI 


SEQ 016/ 


eee 


% a ne 


CZRAPEO RMOS/3/2 DSKLS TST 1 
INVALID CYLINDER TEST 


51 


3501 034124 
$208 034126 
35 


MUA 
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~ 
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3 
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001370 
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001142 
001142 


001140 


14 001136 


001446 
001446 


054450 


001174 


002000 


001226 


001420 
001420 


;ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND 


DEC R3 
BNE 30s Z ISSUE 2 CLOCKS 
:VERIFY IAE IS SET 
MOV RMER1 (RO). SBDDAT :STORE RMER1 AT $BDDAT 
BIC #*CIAE , SBDDAT 
BNE 40$ :BRANCH IF IAE IS SET 
MOV #IAE. $GDDAT :SETUP ERROR MESSAGE 
MOV RO, SBDADR 
ADD #RAER1 . $BDADR 
MOV RMDCO, $TMPO 
EMT 211 
BR 50$ 
ADVANCE CYLINDER ADDRESS 
INC RMDCO : INCREMENT CYLINDER ADDRESS 
CMP RMDCO.#1024.  =DONE ? 
BLO 10$ =NO, TEST AGAIN 
50$: 
| M pee eaSaSS2SASA2ASASELASESAASAASLAALALSLASASASASZASAASAAZAALASAAAALASZALALAASLAA & SE 2 
“*TEST 72 SET AOE TEST 
*s SERHRERRSSEHEREAEEEEE LESSEE ERE EREAEREREAR SEER EREREEEEReERHeTEeee 
TS172 
SCOPE sSCoPk CALL 
NOP 
MOV #STACK,SP :LOAS HE STACK POINTER 
MOV SBASE .R RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 R1 = POINTER TO DEVICE 
MOV #72, $TESTN ;=SET TEST NUMBER IN APT MAIL BOX 
CLR RMOF 0 :18 BIT FORMAT MODE 
MOV LSTRK,RMDAO “SETUP LAST TRACK AND 
MOVB  #29..RMDAO “LAST SECTOR 


i WORD COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET 


15$: 


PC, SETVV 
15$ 


40$ 


#OMD ! MUR ! DBEN, RMMR1 (RO) 
RMOF 0, RMOF (RO) 


#WD!GO,RMCS1(RO) 


#14,R2 


:GO SET VOLUME VALID 


:BRANCH TO 15$ IF NO ERROR 
:SKIP TEST IF ERROR 


;LOAD RMMR1 


: RMO 
:STORE RMOF AT S$TMPO 
;LCAD RMDC 


;LOAD RMDA 
;LOAD RMBA 
few: RMCS1 


3R2 = COUNT 
COUNT 2-05 3-04 14-60.. 


; CLOCK 
;CLOCK THE COMMAND SEQUENCER TO GENERATE SET PULSE 


208: 





a re ee se -_ 


SEQ 0168 


| 
| 


' 


 CZRMPBO RMO 
| 1?2 SET 


3546 034360 
3547 034366 
3548 034374 
ras 034376 


WANANAAS 
+" ww 


PEPER RAS 
C0000 
FEES 
> 

nO 


5 5 
3570 034504 
3571 
3572 


Soo COO OCO 
SER FERRERS 
yaa GINA 
ROW RORORER 


PENIS BSVOARG 
EREEES 


co 
“i 


Oooo OoOooooo 


PSMA AAA WNW AWWW AWWW 
Lew www wees YIN 


wiv) 
2 


5/3/2_DSKLS 
AOE TEST 


032737 
001007 
012737 
112737 
000667 


000014 
176777 
001136 
000014 
001000 


010000 


010000 
000037 


001100 
001276 
001466 
000073 
001136 
000014 
034712 
054674 
000001 
041001 
000000 
000000 
000001 


041001 
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000024 
000024 


000024 


000024 


001142 
001142 


001136 
001140 


001444 


001444 
001420 


001226 


001136 





MOV #DMD ! MUR ! DBEN ‘ DBCK.RMMR1 (RO) ZLOAD KMART 
MOY #DMD ! MUR‘ DBEN . RMPIRT (RO) LOAD RMMR1 
BNE 20$ ISSUE 2 CLOCKS 


:FORCE EBL TO GET TO OVERFLOW ADDRESS 
MOV ADMD ! MUR ! DBEN! DEBL , RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 


; VERIFY THAT ADDRESS OVERFLOW ERROR IS SET 
MO RME DAT 


MOV MERI (R ‘ :STORE RMER1 AT $BDDAT 
— :BRANCH IF AOE IS SET 
MOV RO, S$BDADR =SETUP ERROR MESSAGE 
ADD R1,$BDADR 
MOV #AOE , SGDDAT 
EMT 
BR 40$ 
308: :END OF TEST 
BIT #FMT16,RMOFO § =DONE 16 BIT FORMAT TEST ? 
BNE 4 “YES !! 
MOV #FMT16,RMOFO  :SET 16 BIT FORMAT MODE AND 
MOVB  #431..RMDAO “LAST SECTOR 
BR 10$ 
40$: 
s A -eSaeReaSSaSASSAASSASALSASLEAARSRASSAASALASLASLAALAAASAAAASASSAALAAALASASL SA & & 7 
“TEST 73 SET RMR TEST 
: z Se He He He He I HI II IIE KK KE KKKKKKEKKEEKEE 
TST73: ee 
| SCOPE ;SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV $BASE ,RO “RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 - 3R1 = POINTER TO DEVICE 
MOV #73,$TESIN >:SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDADR :SETUP REGISTER ADDRESS FOR MSG 
ADD #RMER1, $BDADR 
MOV #100$,R2 : INITIALIZE TABLE POINTER 
i CLEAR THE DEVICE AND ENABLE DEBUG CLOCK 


JSR PC, CNTCLR :GO CLEAR CONTROLLER 

MOV #DMD.RMMR1(RO) ;LOAD RMMR1 

MOV ADMD 'MUR' DBEN,RMMR1(RO) ;LOAD RMMR1 
;LOAD RMER1 

:LOAD RMER2 


:SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE 

MOV #GO,RMCS1(RO)  :LOAD RMCS1 

MOV (Re) R3 - GENERATE REGISTER ADDRESS 
MOV #DMD ' MUR ' DBEN, (R3) :WRITE THE REGISTER 


>VERIFY RMR ACCORDING TO TABLE 


me ae ee 


SEQ 01649 


CZRMPBO RMOS/3/2 DSKLS 
173 SET RMR TEST 


BE oHese OI 
| 00 


P= Ses 
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oO 
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v 


NOUS ARO OG NOAUSwWwN— 


RS 
‘Soo 


a ie” i ee i i i | 
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— —?> 
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oO 


“~ 
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oo 
ee 

S 
WWw 
i 


~“ 
™m 
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001142 mOv RMER1 (RO) . SADDAT :STORE RMER] AT S$ADDAT 
001142 BIC #° (RMR, T 
001140 MOV 2(R2) . $GDDAT :GET EXPECTED RESULT FROM TABLE 
001142 CMP SGDDAT . SBDDAT 
BEQ 30$ :BRANCH IF RAR IS OK 
(R2). STMPO [SAVE TEST REGISTER 
000002 BIT #RMR.2(R2) 
208 :BRANCH IF ERROR SHOULD BE ONE 
EMT 213 
303 
203: 
EMT 214 
ZADVANCE TABLE POINTER, EXIT IF DCNE 
"ADD #4.R2 
TST (R2) 
BM] 4 sEXIT IF ENTRY NEGATIVE 
BR 10$ 
40$: BR 2 : JUMP OVER TABLE 
{TABLE OF REGISTER ADDRESSES AND RMR VALUES 
"WORD = RMAS :ATTENTION SUMMARY REG 
-WORD 0 ;RMR = 0 
.WORD  RMMR1 :MAINTENANCE REG 
-WORD 0 ;RMR = 0. 
.WORD  RMDA :DISK ADDRESS REG 
“WORD RMR : “RMR = 1 
.WORD <1 :—END OF TABLE 
“WORD 0 
2008: :END OF TEST 


WEA AAAARESEARESARALAAAAAASLARARASALASRESLARA SERS ARES SSS eee RRL E 


Z*TEST 74 PGM STATUS CHECK 


MERA RASASZAAAALALASARRARASLASAAZASLESESE SELES ALE SALAS SRSA S SELLS AS S 


TS174: 
SCOPE SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV $BASE .RO RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
001226 MOV #74, STESTN -:SET TEST NUMBER IN APT MAIL BOX 
CLEAR AND READ DRIVE TYPE AND DRIVE STATUS 
JSR PC, CNICLR :GO CLEAR CONTROLLER 
001174 MOV RMDT(RO),.$TMPO :STORE RMDT AT $TMPO 
001142 MOV RMDS(RO).$BDDAT -STORE RMDS AT $8DDAT 
:OMIT TEST IF DRQ IS ON - ELSE VERIFY THAT PGM IS OFF 
001174 BIT #DROQ,$TMPO 
BNE 10$ :BRANCH IF DRO IS ON 


SEQ 0170 


la RMOS/3/2 DSKLS TST 1 
' 


PGM STATUS CHECK 


3639 035010 
3640 035016 
3641 035020 


33 


SFEKKS 

MANU 

UsWN—-OV0Oe 
(elelelelele)|e) 


SSSSSS 
Wty —- SOON 


SESERES 


Aum Sworn 
MEOMmonrs 


x 
st 





042737 
001410 
005037 
oye 
062737 
104215 


SSS8 
—~— — = 
WW 

$35 

So 


338 
ere 8 


176777 
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MACRO v04.00 
001142 BIC #*CPGM, SBDDAT 
BEO 10$ :BRANCH IF PGM IS OFF 
CiR SGDDAT 
RO, $BDADR 
001134 ADD #RMDS . SGDADR 
EMT 215 
10$: sEND OF TEST 
FEAT AAT AAA AAA AAA AEE EAE EREEAARERARAARARERARERRE HERE RR EE 
<STEST 75 DVA/DPR STATUS CHECK 
FF AAA AAAAAAAAAAAAEKEAAAAEAAEEAAA AREER ERAEREERK EEE 
1ST75: 
SCOPE :SCOPE CALL 
MOV #STACK,SP :LOAD THE STACK POINTER 
MOV $BASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE RI _ iR1 = POINTER TO DEVICE 
001226 MOV #75 .STESTN ::SET TEST NUMBER IN APT MAIL BOX 
:CLEAR AND VERIFY THAT DVA iS SET 
JSR PC. CNTCLR #60 CLEAR CONTROLLER 
001142 MOV RMCS1(RO), SBDDA -STORE RMCS1 AT $BDDAT 
001142 BIC #*CDVA, $BDDAT 
BNE 10$ :BRANCH IF DVA IS ON 
001140 MOV #DVA, $GDDAT 
MOV RO, SBDADR 
EMT 216 
‘VERIFY THAT DPR IS SET 
001142 "(MOV RMDS (RO), SBDDAT :STORE RMDS AT $BDDAT 
001142 BIC #°CDPR, SBDDA 
BNE 0$ 
001140 MOV #DPR, SGDDAT 
MOV RO, SBDADR 
001136 ADD #RMDS , SBDADR 
EMT 217 
20S: :END OF TEST 
fF EAE REAEA AAA ARERR TEAR KERR AEAAEAAAEEEEAEEREEREERREKEEREEEE SE 
<STEST 76 PORT REQUEST TEST. PART 1 
Fg REAR AA AAAAAAAEAEEEAAEAAAERAKAAAARERKAEKEEAR EAE KEREEEEREEE 
TST76: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP :LOAD THE STACK POINTER 
MOV $BASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE .R1 =R1 = POINTER TO DEVICE 
001226 MOV #76, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
:GO SET VOLUME VALID 


JSR PC ,SETVV 
10$ ;BRANCH TO 10$ IF NO ERROR 


20$ 


ee | a ee a we ee 


SEQ O171 


SPREE 


OL e el olelalolelole) 
WAAN ANNAN 


3679 


See ee Ses 
ORSON Se 


ole ei el ele) 
AWA AAO 
MUIWNAIYIWAVIWN 
LA AIA A 
XY No=e—- 
fon & 


Oooo oO 
WWwwila 
WAM 
ww 
MOON 


; 
: sn 
: 





012760 


016002 
042702 
001025 


012760 


016005 
032705 


haar ee ee DSKLS TST am 
REQUEST TEST, 


000013 
000040 
037777 
000000 


000012 
001000 


000040 
037777 


001136 
000040 


000013 
000040 
037777 
177777 


000012 
007000 
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001226 


000000 


000016 


zREAD RMCS1 TO SET REQUEST FLOP 
MOV RMC 


EXECUTE A RELEASE TO RESET REQUEST FLOP 
MOV #RLEASE‘GO.RMCS1(RO) =: LOAD RMCS? 
:READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 

sSTORE RMMR2 AT R2 


MOV RMMR2 (RO) co 
BIC #*C<RQA'ROB>, 
BNE 20$ 


S$1(RO) ,R2 > STORE RMCS1 AT R2 
>VERIFY THAT REQUEST FLOP IS SET IF PGM IS SeT 
MOV RMDS (RO) ,R5 : STORE 


RMDS AT R5 
BIT _ sSEE IF PGM IS 


S SET 
:DONT TEST REQUEST IF PGM IS ZERO 


BEQ 2 
MOV RMMR2 (RO), SBDDAT ;STORE RMMR2 AT SBDDAT 
BIC #°C<RQA!ROQB>, $BDDAT 
BNE 20$ 7;BRANCH IF REQUEST IS SET 
MOV RO, $8DADR 
ADD #RMMAR2 , SBDADR 
EMT 220 
20S: 


FF EAA REECE EEEEREKEEEREEKEKEE 


s*TEST 77 PORT REQUEST TEST, PART 2 
re a a cae a ia aaa cain en enc tala 
TST77: 
a :SCOPE CALL 
MOV ASTACK,SP :LOAD THE STACK POINTER 
MOV SBASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #77 , STESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC ,SETVV :GO SET VOLUME VALID 
love 10$ ;BRANCH TO 10$ IF NO ERROR 
BR 20S 


EXECUTE A RELEASE TO RESET REQUEST FLOP 
"MOV #WRLEASE!GO,RMCS1(R0) — : LOAD _RMCS1 
:READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 

MOV - STOR 2 


| RMMR2 (RO) ,R2 E RMMR2 AT R 
BIC #*C<RQA!RQB>,R2 
BNE 20$ 


#-1 ,RMAS (RO) 
sVERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 
MOV RMDS (RO) ,R5 STORE RMDS AT R5 
BIT #PGM,R5 


sWRITE THE ATTENTION SUMMARY REGISTER TO SET REQUEST FLOP 
MOV ;LOAD RMAS 


;SEE IF PGM IS SET 


ee ee ae ee 


SEQ O01 
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T REQUEST TEST, PART 2 SEQ 0175 
3719 035412 001415 BzQ 20$ sDONT TEST KEQUEST IF PGM IS ZERO 
3720 035414 016037 000060 001142 MOV RMMR2 (RO) .SBDDAT :STORE RMMR2 AT S$BDDAT 
3721 035422 042737 037777 001142 BIC #*(<RQA! ROQB> , SBDDAT 
3722 035430 001006 BNE 20$ 
3723 935432 010037 001136 MOV RO, $BDADR 
3724 035436 062737 0000460 001136 ADD #RMMR2 . SBDADR 
3725 035444 104221 EMT 221 
3558 035446 _ 208: 
3728 ; FERE AEE E AREER EREEAEERERA REE EREREERERKEEERRERE REE ERE 
“STEST 100 PORT REQUEST TEST, PART 3 
2 ARE ERE EAR EERE REE REE RE RE RE RERR RR 
035446 TST100: 
035446 000004 SCOPE :SCOPE CALL 
935450 000240 NOP 
035452 012706 001100 MGV MSTACK ,SP ;LOAD THE STACK POINTER 
035456 013700 001276 MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
035462 013701 001466 MOV TSTQUE ,R1 :R) = POINTER TO DEVICE 
3729 635466 012737 000100 001226 MOV #100, $TESTN ;SET TEST NUMBER IN APT MAIL BOX 
3750 035474 004737 054450 JSR PC ,SETVV :GO SET VOLUME VALID 
035500 000402 BR 10$ ;BRANCH TO 10$ IF NO ERROR 
035502 104000 EMT 
$58 035504 000435 BR 20$ 
3735 zEXECUTE A RELEASE COMMAND TO RESET REQUEST FLOP 
3/34 035506 10$: 
Hay 035506 012760 000013 000000 MOV #RLEASE !GO,.RMCS1 (RO) ;LOAD RMCS1 
3539 ;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 
3738 035514 016002 000040 MOV RMMR2 (RO) .R2 STORE RMMR2 AT R2 
3739 035520 042702 037777 BIC #*C<RQA!RQB>,R2 
$505 035524 001025 BNE 20$ 
$028 :WRITE RMDA TO SET + tpg itl FLOP 
eo07 035526 012760 000000 000006 MOV #0 ,RMDA (RO) ;LOAD RMDA 
39 > VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 
3746 035534 016005 000012 MOV RMDS (RO) ,.R5 ;STORE RMDS AT R5 
747 035540 032705 001000 BIT #PGM,R5 ;SEE IF PGM IS SET 
748 035544 001415 BEQ 20$ :DONT TEST REQUEST IF PGM IS ZERO 
3749 035546 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 
750 035554 042737 037777 001142 BIC #*C<RQA!RCB>, SBDDAT 
751 035562 001006 BNE 20$ 
$526 035564 010037 001136 MOV RO, $BDADR 
753 035570 062737 000040 001136 ADD ARMMR2 , SBDADR 
es. 035576 104222 EMT 222 
3756 035600 20$: 
3757 
3758 DLR E ORE REE REE REE REE REE REE  t 
:*TEST 101 RELEASE TEST 
SLR EER TRAE TREE ERE EEE Ree 
035600 TSTIO1: 
035600 000004 SCOPE ;SCOPE CALL 





Eee <i 
- ~ - ee 


ae RMO5S/3/2 DSKLS TST 1 


RELEASE TEST 
035602 
035604 
035610 
035614 


035 
3759 
3760 


3761 

5762 035626 

035632 

_ 035634 

3763 035636 
3764 


3766 035640 
3767 035640 01 
3768 035646 01 
3769 035654 01 
3770 035660 
C35660 01 
035666 01 
035674 
035676 


$775 
3776 035700 


oO 


574 
3785 038782 
3787 


‘PAH ANNAN 


Wins 
3 
™~ 


041001 
000013 
000002 


141001 
041001 


000026 
000040 
037777 
004000 
100000 
040000 


001136 
000040 


MACRO V04.00 


001226 


001142 


001136 


001226 


208: 


: VERIFY 
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NOP 

MOV ASTACK , SP ;LOAD THE STACK POINTER 

MOV SBASE ,RO :RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 

MOV #101, $TESTN >;SET TEST NUMBER IN APT MAIL BOX 


sREQUEST FLOP SHOULD SET WHEN WRITTING RMCS1 


JSR PC ,SETVV :GO SET VOLUME VALiD 
Pe 103 :BRANCH TO 10$ IF NO ERROR 
BR 40$ 


= A RELEASE COMMAND 


MOV #DMD ! DBEN!MUR,RMMART (RO) ;LOAD RMMR1 

MOV #RLEASE !GO,RMCS1 (RO) ;LOAD RMCS1 

MOV #2 ,R2 

MOV ADMD ! DBEN! MUR ! DBCK , RMMR1 (RO) ;LOAD RMMR1 

ore ee ;LOAD RMMR1 

BNE 20$ : ISSUE 2 CLOCKS 

REQUEST FLOPS ARE RESET 

MOV RMDT(RO),STMPO ;STORE RMDT AT $TMPO 

MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 

BIC #°C<RQA!ROB>, SBDDAT 

BEQ 40$ ;BRANCH IF REQUESTS ARE RESET 
BIT #DRO,STMPO 

BEQ 30$ ;BRANCH IF SINGLE PORT DEVICE 
BIT #ROQA , SBDDAT 

BEQ 40$ ;BRANCH IF RGA IS RESET 

BIT #ROB, SBDDAT 

BEQ 40$ ;BRANCH IF RQB IS RESET 


:DRQ IS ZERO AND A yg FLOP IS ON, OR, DRQ IS ONE AND 
580! H REQUEST FLOPS ARE ON 


40$: 


5 EAA ARATE AAAARAARAEAAAAREREAAAA REREAD 


Z*TEST 102 


“PRET ARARERARTAARAAEKRERHAEARARARARAARAEAAATAAEAAREKEREAREKEKEEAAAARERREAEEESE 


TST102: 


:CLEAR THE DEVICE, 





MOV RO, $BDADR 
ADD #RMMR2 , SBDADR 
EMT 223 
;END OF TEST 


WRITE ATA TEST 


oe sSCOPE CALL 

MOV @STACK, SP ;LOAD THE Sig ae 

MOV SE ,RO RO = UNIBUS ADDR 

MOV TSTQUE ,R1 :R1 = POINTER TO BE VICE 

MOV #102, $TESIN = SET TEST NUMBER IN APT MAIL BOX 


SET DIAGNOSTIC MODE THEN SET UNIT READY 


Susmemercs “3 


iS 


23 


SEER 


es 
: 
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RARER 
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or 


iain 


3/2 DSKLS 
ATA TEST 


ES 


S2R8Ree 
WI Ouro 
Ofw Oo 

NMIWWWW NOW 


—> 
MN 
WIN NNO NWN 


SSS58 
NS 
C855 
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™~ 
WN 
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i er 
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TST 1 


054674 
000001 


000000 
001001 


177770 
063516 
177400 
000016 


000012 
077777 


000016 
001142 
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001142 
001142 


001136 


001142 


001136 


BIC 


:READ RMDS AND VERI 
MOV 


PC, CNTCLR 


#DMD ,RMMR1 (RO 


#0. RMER1 (RO) 
#0. RMER2(RO) 


#DMD ! MUR ,RMMR1(R 

sWRITE THE ATTENTION SUMMARY REGISTER 
MOVB (R1),R 

#°CUNTMSK ,R2 


ATNTBL(R2) ,R3 
Se mae 


R3,RMAS (RO 


) 


7LOAD RMER1 
ao RMER2 


;LOAD RMMR1 


;LOAD RMAS 


FY THAT ATA IS RESET 
RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
#“CATA,$BDDAT 
10$ ;BRANCH IF ATA IS RESET 


i RMAS AND VERIFY ATA IS RESET 


20$: 


Z*TEST 103 


Wee Pee ASAAAARSRSARSRAARARARARAASRESASSRRA SRR RRR SRS SRA RRS RRS SRR SESS SS | 


TST103: 


sWITH DEBUG 
MOV 


MOV 
BIC 


nee AR ;STORE RMAS AT S$BDDAT 


R3,$BDDAT 
20$ 


EGDDAT 
RO, $BDADR 


#RMAS , SBDADR 
225 


;BRANCH IF ATA IS RESET 


sEND OF TEST 


wee ERR RR RRRRRRRRRRRRRSARRRRR RS RRARE SR RASA SER SESSA RASA S SRR SSS S 


RESET ATA BY GO TEST 


ASTACK, SP 


TSTQUE ,R1 
#103, $TESIN 
PC, CNTCLR 
#DMD , RMMR 1 


(RO) 
#0 ,RMER1 (RO) 
#0 ,RMER2 (RO) 
#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


CLOCK ENABLED, SET GO AND VERIFY THAT ATA iS RESET 


#G0,RMCS1 (RO) 


RMDS(RO) ,SBDDAT ;STORE RMDS AT $BDDAT 


#*CATA, SBDDAT 


:SCOPE CALL 


;LOAD THE STACK POINTER 

0 = UNIBUS ADDRESS 

= POINTER TO DEVICE 

:7;SET TEST NUMBER IN APT MAIL BOX 


:GO CLEAR CONTROLLER 
OAD RMR) 


zR 
RI 


*LOAD RMER1 


;LOAD RMER2 


;LOAD RMCS1 


:GO CLEAR CONTROLLER 
;LOAD RMMR1 


sASSEMBLE THE ATA BIT IN R35 


CZ7RMPBO RMO5/3/2 DSKLS 5 


7103 


RESET ATA BY GOT 


3345 936276 
036 


036304 
036310 
036316 


0 
> 036320 


Oooo0c0o0o 
+ fwrnn—-— oO 
AOMALSAOr 


SSSSEEESS FEET EEEE 


OOOCCCOCOOCOCOo 
RVONS 


37 
104226 


012737 


004737 


2737 
4 


Pent ges 4 epee: 
EUNLS 

lw 

NS 





00 
177777 
001001 
000012 
077777 


001136 


177777 
000012 
077777 
001136 
000012 
100000 
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001136 


001226 


000016 
000024 
001142 
001142 


001136 
001140 


= 


BEQ 10$ ;BRANCH IF ATA IS RESET 
CLR SGDDAT 
MCV RO, $BDADR 


ADD §  #RMDS, SBDADR 
EMT —- 226 
108: END OF TEST 
e J TETRA AEA ARERR ARERARAAERARAEERAREAAERARERERRAEKREKE EES 
Z*TEST 104 UNIT READY ATA TEST 
J RATA AAA AERA KAA AAA AERA AEE ARKAEERREREAT AAA ERRRER ERE REED 
151104: 
SCOPE SCOPE CALL 
NOP 
MOV = #STACK, SP ;LOAD THE STACK POINTER 
MOV —- $BASE,RO RO = UNIBUS ADDRESS 
MOV —«s TSTQUE,R1 :R1_= POINTER TO DEVICE 
MOV #104,$TESTN :SET TEST NUMBER IN APT MAIL BOX 


:SET DIAGNOSTIC MODE AND CLEAR ATA 
JSR :GO CLEAR CONTROLLER 
MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 


MOV #0,RMER1 (RO) ;LOAD RMER1 
MOV #0 ,RMER2 (RO) ;LOAD RMER2 
MOV #-1 .RMAS (RO) ;LOAD RMAS 


:SET UNIT READY AND VERIFY ATA IS SET 
MOV ADMD ! MUR , RMMR1 (RO) ;LOAD RMMR1 
MOV RMDS (RO), = ;STORE RMDS AT $BDDAT 
BIC #*CATA, SBDDAT 
BNE 10$ ;BRANCH IF ATA IS SET 


ae ATA, RESET UNIT READY, AND VERIFY ATA IS SET 
MOV #-1 ,RMAS (RO) sLOAD RMAS 
MOV ADMD,RMMR1(RO) ;LOAD RMMR1 
MOV RMDS(RO),SBDDAT ;STORE RMDS AT $BDDAT 
BIC #“CATA, $BDDAT 
BNE 20$ 
MOV RO, $BDADR 
ADD #RMDS , SBDADR 
MOV HATA, $GDDAT 
EMT 230 
20$: sEND OF TEST 


weet Pee RRRRERASRSRRASRSA RR ARRAS ARR RE RRR RA RR RS RARRRRR RRR RARAR SSSR S ASD SD S| 


>*TEST 105 ERROR ATA TEST 


Wee RRRRARRASASASASAARRRARASSRRSRSESRRRR RAR ARARRAR RR RRR SRRRA RASA SES DSS 


TST105: 
SCOPE >SCOPE CALL 


SEQ O1/76 


SS eee ae 


———_— 
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ROR ATA TES? SEQ 01 
036526 000240 NOP 
036530 Org 001100 MOV @STACK,SP sLOAD THE STACK POINTER 
036534 013700 001276 MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
036540 013701 001466 MOV TSTQUE .R1 :R1 = POINTER TO DEVICE 
— 036544 012737 000105 001226 MOV #105 .STESTN >:SET TEST NUMBER IN APT MAIL BOX 
3838 : CLEAR a * DEVICE AND RESET ATTENTION 
3889 036552 004737 054674 PC CNTCLR 7GO CLEAR CONTROLLER 
3890 036556 012760 000001 000024 iy #DMD.RMMR1(RO) :LOAD RMMR1 
3891 036564 012760 900000 000014 MOV #0. RMER1 (RO) sLOAD RMER1 
3892 036572 012760 000000 000042 MOV #0 ,.RMER2 (RO) 7LOAD RMER2 
Saaz 036600 012760 177777 000016 MOV #-1 -RMAS (RO) ;LOAD RMAS 
3895 ; zWRITE ONES IN ERROR REGISTER 1 AND VERIFY ATA IS SET 
4896 036606 012760 177777 000014 MOV #-1_,RMER1 (RO) LOAD RMER1 
3897 036614 016037 000012 001142 MOV RMDS (RO) , $BDDAT ‘STORE RMDS AT $BDDAT 
3898 tres, 042737 077777 001142 BIC #*CATA, SBDDAT 
3899 0366 001011 BNE 10$ 
3900 036632 012737 001140 MOV HATA, $SGDDAT 
3901 036640 010037 001136 MOV RO. $BDADR 
zon8 036644 062737 000 001136 ADD , SBDADR 
$357 036652 104231 EMT 
3908 036654 10$: sEND OF TEST 
3906 
3907 g TESA AAKAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAARARARAARARAARARAARAARRAARS 
“TEST 106 REGISTER TRANSFER ATA TEST 
-REREKRARRARAARAEEAEARKEAEEARAAEERKEARAEARAREREARAAEAARAAEAREEERKAKAEKAAEKEKEEE 
036654 7ST106: 
036654 000004 SCOPE :SCOPE CALL 
036656 000 NOP 
036660 012706 001100 MOV #STACK,SP : LOAD THE STACK POINTER 
036664 013700 001276 MOV SBASE , RO ;RO = UNIBUS ADDRESS 
036670 013701 001466 MOV TSTQUE ,R1 -R1 = POINTER TO DEVICE 
908 036674 012737 000106 001226 MOV #106, $TESIN -:SET TEST NUMBER IN APT MAIL BOX 
$009 036702 012702 037030 MOV #100$,R2 : INITIALIZE TABLE ADDRESS 
911 remy “FORCE COMPOSITE ERROR AND RESET ATA 
912 036706 S$: 
91 Berle 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
914 036712 012760 01 000024 MOV 1(RO) ;LOAD RMMRI 
915 Breree 012760 177777 000014 MOV #-1,RMER1(RO)  :LOAD RMER1 
at 036726 012760 177777 000016 MOV #-1,RMAS (RO) :LOAD RMAS 
918 ;WRITE THE TEST REGISTER AND VERIFY ATA 
919 Sth 011203 MOV (R2) ,R3 :GENERATE REGISTER ADDRESS r 
20 036736 ADD R RS 
1 036740 005073 CLR R3) 
§ Sates 016037 000012 001142 MOV RMDS (RO), pees? :STORE RMDS AT $BDDAT 
36750 042737 077777 001142 BIT #°“CATA $BDD 
924 036756 016237 001140 MOV 2(R2), SEDDAT 
5 026766 023737 001140 001142 CMP $GDDAT. $BDDAT 
036772 1410 BEQ 10$ :;BRANCH IF ATA JIS OK 
? 036774 010337 001174 MOV R3,$TMPO 
928 037000 010037 001136 MOV RO, $BDADR 


— — -- ——- ae 


oe 
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CZRMPBO RMOS/ 
7106 REGISTER TRANSFER ATA TEST SEQ 0175 
3929 037004 062737 000012 001136 ADD #RMDS . SBDADR 
$350 037012 104232 EMT 232 
$ sMOVE TABLE POINTER - EXIT IF DONE 
3933 037014 10$: 
934 037014 062702 900004 ADD #4 ,R2 
3935 037020 005712 TST (R2) 
037022 100401 BM! 20$ sEXIT IF ENTRY MINUS 
3937 037024 000730 BR 5$ 
beh 037026 000410 20$: HR 200$ ; JUMP OVER TABLE 
3940 7; TABLE OF REGISTER ADDRESSES AND ATA BITS 
3941 037030 100$: 
3942 037030 000016 .WORD RMAS 
Soci 037032 000000 . WORD 
3945 037034 000006 -WORD RMDA 
sa79 037036 100000 .WORD ATA 
3948 C37040 000000 .WORD RMCS1 
$026 037042 000000 - . WORD 
3951 037044 177777 .WORD <1 sEND OF TABLE 
3084 037046 000000 . WORD 
4a) 037050 - 200$: :END OF TEST 
3956 SLR ERER EAE EERE EERE EERE 
s*TEST 107 P SET ATA TEST 
CF AAA AAA AAR AREER AERA EE 
037050 TST107: 
037050 000004 SCOPE 3SCOPE CALL 
037052 00024 NOP 
037054 012706 001100 MOV AMSTACK,SP ;LOAD THE STACK POINTER 
037 013700 001276 MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
037 015701 001466 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
3957 0370 012757 000107 001226 MOV #107, $TESIN 7;zSET TEST NUMBER IN APT MAIL BOX 
3958 037076 012702 037240 MOV #100$,R2 ; INITIALIZE TABLE POINTER 
3959 037102 10$: 
3960 037102 004737 054450 JSR PC, ,SETVV :GO SET VOLUME VALID 
037106 000402 BR 20$ ;BRANCH TO 208% IF NO ERROR 
Be5118 104000 EMT 
$0. 37112 000451 BR 50$ 
3068 037114 2 aie THE COMMAND FROM THE TABLE 
3965 037114 012760 041001 000024 "MOV #DMD ‘MUR! DBEN,RMMR1(RO) ;:LOAD RMMR1 
3966 037122 011203 MOV (R2) ,.R3 ;GET FUNCTION CODE 
3967 IAL 052703 000001 BIS #G0,R3 
3968 0371 010360 000000 MOV R3,RMCS1(RO) ;LOAD RMCS1 
3969 037134 012703 000003 MOV #3,R3 
3074 Beo108 30$: 
71 037140 012760 141001 000024 MOV #DMD 'MUR ' DBEN! DBCK,RMMR1 (RO) ;LOAD RMMR1 
O56 037146 012760 041007 000024 MOV ADMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
3973 037154 005303 : DEC R3 
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—_i., ie” ee ee ee ee eee. | (7 Ve 


Sarr ey TW 7? FS oe MOINS ’ — 
1107 P SET ATA TEST SEQ 0179 


r 
3 


3874 037156 001370 BNE «308 
3976 sVERIFY THAT ATA IS SET 
3977 037160 016037 000012 001142 MOV RMDS (RO), = sSTORE RMDS AT $B8DDAT 
3978 037166 042737 077777 901142 BIC #“CATA, SBDDAT 
3979 037174 001013 BNE 40S 
037176 010037 001136 MOV «RO, SBDADR 
| 3981 037202 062737 12 001136 ADD #RMDS.$BDADR 
3982 037210 012737 100000 001140 MOV so MATA $GDDAT 
398% 037216 011237 001176 MOV —«(R2) “$TMPO 
3984 037222 104238 EMT —s«2 38 
3986 ; ADVANCE TABLE POINTER-EXIT IF DONE 
3987 037224 i0$:* 
3988 037224 062702 000002 ADD —s- #2. R2. 
3989 037230 005712 TST (RD) 
3990 037232 100401 BMI —«50$ 
3991 037234 000722 BR 10$ 
so58 037236 000403 50$: BR 200$ : JUMP OVER TABLE 
3994 ; TABLE OF FUNCTION CODES 
3995 037240 1008: 
3996 037240 000014 [WORD OFFSET 
3997 037242 000016 "WORD RTC 
3998 037244 177777 “WORD -1 “END OF TABLE 
3999 037246 2008: 
4001 SL AAA AAA EEE EKER EERE EEEEE 
S*TEST 110 SET WLE TEST 
CT AAA AAR AREER AAA ERAT KEKEEEREAREEEKEEKEEEAEEEKEKEKEREKEEKEKRK EK 
037246 781110: 
037246 000004 SCOPE :SCOPE CALL 
037250 0002 _ 
037252 012706 001100 MOV ASTACK,SP :;LOAD THE STACK POINTER 
037256 013700 001276 MOV _—s-$BASE.. RO “RO = UNIBUS ADDRESS 
037262 013701 001466 MOV TSTQUE ,R1 RI = POINTER TO DEVICE 
soon 03/28 12787 000110 001226 MOV so #TT0.$TESTN. 2: SET _ TEST NUMBER IN APT MAIL BOX 
4003 037274 012702 037470 MOV #100$,R2 : INITIALIZE TABLE POINTER 
4004 037300 108: 
4005 037300 004737 054450 -JSR so PC.SETW GO SET VOLUME VALID 
037304 00040? BR 208 “BRANCH TO 20$ IF NO ERROR 
037306 104000 EMT 
4906 037310 000466 BR 50$ 
4008 ENABLE DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE 
4009 037312 50$: 
4010 037312 016203 000002 MOV 2(R2) ,R3 sGET WRITE PROTECT FROM TABLE 
4011 037316 052703 041001 BIS #DMD !MUR'DBEN,R3 -SET OTHER MAINT BITS 
401g 037322 010360 000024 MOV —s«aR3.RMMR1(RO) LOAD RMMRI 
4014 :LOAD AND EXECUTE THE COMMAND FROM THE TABLE 
4015 037326 011204 MOV (R2) RS :GET FUNCTION CODE FROM TARLE 
4016 037380 052704 000001 BIS -#GO_R4 “SET GO 
4017 037334 010460 000000 MOV R4.RMCS1(ROd *LOAD RMCS1 
4018 037340 012705 000002 MOVs #2°RS “RS=CLOCK COUNT 
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000004 
001136 
000014 
001174 
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000006 
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MACRO ¥04.00 


30$: 


: VERIFY 


50$: 


BIS #DBCK R3 
MOV R3,2MMR1 (RO) 
BIC #DBCK, 

MOV R3,RMMR1 (RO) 
DEC R5 

BNE 30$ 

BIC ULE, $80 
CMP 4(R2) , SBDDAT 
BEQ 40 

MOV 4(R2), $GDDAT 
MOV RO, $BDADR 
ADD R1, $BDADR 
MOV (R2) , $TMPO 
MOV 2(R2) ,$TMP1 
EMT 234 

BR 50$ 

ADD #6 ,R2 

TST 2(R2) 

BMI 50$ 

BR 10$ 

BR 200$ 

: TABLE OF FUNCTION CODES, WRITE 
100$: 

-,WORD WD 

"WORD  MuP 

“WORD WLE 

.WORD WD 

“ WORD 

“ WORD 

-WORD RD 

"WORD  MwP 

“WORD 

.WORD RIP 

"WORD  MuP 

“WORD 

. WORD 

"WORD =1 


200$: 
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sSET CLOCK 

;LOAD RMMARI 

sRESET CLOCK 
OAD RMMR1 


ISSUE 2 CLOCKS 
THAT WRITE LOCK ERROR ‘ ACCORDING TO TABLE 
MOV RMER1 SBDDAT : STORE 


RMER1 AT $BDDAT 


;BRANCH IF WLE IS Ok 
zSAVE DATA FOR ERROR MSG 


;STMPO=FUNCTION CODE 
;STMP1=WRITE PROTECT 


me TABLE POINTER TO NEXT FUNCTION CODE-EXIT IF DONE 


sREPEAT TEST 

: JUMP OVER TABLE 

PROTECT AND WRITE LOCK: ERRORS 
;WRITE DATA COMMAND 


sWRITE PROTEC 
:WRITE LOCK ERROR ONE 


T ON 


;WRITE -_n COMMAND 
:MWP OF F 
sWLE OFF 


READ DATA COMMAND 

sMWP ON 

sWLE OFF 

:READ IN PRESET COMMAND 
sMWP ON 

sWLE OFF 


sEND OF TABLE 


sEND OF TEST 


'WeARAAALALARSASLALEASASASLAAAALALASLERARASRSASSASRSRRRRS SRR RA RAR ARR RAS SOS | 


Z*TEST 111 


—eAeeeRSESSRAaSRSASEAS ESA ASERASASR SRS SASR RRR RAR RRS RS SRRR SRR RR RRR RRR RAS SS Ss 
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4 
4085 037552 
4086 


4087 
4085 037556 
4089 ere 


4094 037604 
4095 Baeele 
ie rei8 
; bee 
2098 0 OR rede 
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7 
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~ 

So 

WG 
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040024 


054674 
000024 
167777 
001136 
000024 
001140 


054450 


000014 
000200 
141612 


000024 
167777 
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901226 


SCOPE :SCOPE CALL 
MOV #STACK SP :LOAD THE STACK POINTER 
MOV S$BASE .RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #111, $TESIN >;SET. TEST NUMBER IN APT MAIL BOX 
:WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN 
z EXCEPTION: 
: PAR. IF RUN AND GO IS SET 
RMR. IF RUN AND GO IS SET 
ILR. IF RUN AND GO IS SE? 
: DCK 
: HCE 
: HCRC 
: FER 
: OP] 
MOV #100$,R2 : INITIALIZE TABLE POINTER 
INITIALIZE AND VERIFY THAT EXCEPTION IS RESET 
JSR PC. CNTCLR :GO CLEAR CONTROLLER 
MOV RMMR1 (RO). $BDDAT = STORE RMMR1 AT $BDDAT 
BIC #*CREX, SSDDAT 
BEQ 20$ :BRANCH IF EXCEPTION IS 0 
MOV RO, SBDADR 
ADD #RMMR1, SBDADR 
CLR SGDDAT 
EMT 235 
20$: 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 30$ “BRANCH TO 30$ IF NO ERROR 
BR 60$ | 
EXECUTE A WRITE DATA COMMAND TO SET OCCUPIED, RUN AND GO 
"MOV #0,.RMDA(RO) :LOAD RMDA 
MOV — #0.RMDC(RO) >LOAD RMDC 
MOV #DMD 'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #uD 'GO.RMCS1 (RO) “LOAD RMCS1 
oa MOV #2,R3 
"MOV #DMD'MUR'DBEN'DBCK.RMMR1(RO) LOAD RMMR1 
MOV #DMD ! MUR !DBEN RMR (RO) :LOAD RMMR1 
BNE 40$ pISSUE 2 CLOCKS 
LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET 
MOV (R2) RMER1(RO) <=LOAD RMER1 
MOV #200. WATCH >SET WATCHDOG TIMER VALUE 
a JSR PC, acLOCk “START THE CLOCK 
"MOV RMMR1 (RO), $BDDAT =STORE RMMR1 AT $BDDAT 
BIC #*CREX, $BDDAT 
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005737 
090 


000656 
000402 


000004 
000000 


141530 
000002 


001100 


001140 
001136 


001226 


000024 
000014 
000042 
000000 


60$: 


HAS on EXPIRED : 
45$ 7NO - TAKE ANOTHER SAMPLE 
; STOP THE CLOCK 


MOV . SBDADR 

ADD 1,$BDADR 
MOV (R2) , STMPO 
EMT 236 

BR 60% 


oo TABLE POINTER-EXIT IF DONE 


JSR —— :STOP THE CLOCK 


ADD . 
TST (Re) 
BEQ 60$ 
BR 10$ 
BR 200$ ; JUMP OVER TABLE 


PRESENTLY, THE TABLE HAS ONLY ONE ENTRY, THE TEST USING RMR. THE 


7 ENABLE 
10$: 


-TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF 


E IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR 


:A_ HARDWARE CHANG 
REGISTER 1 WITH GO SET. 


WORD RMR 
. WORD | | END OF TABLE 


;RMR IS CAUSED BY HARDWARE 


200$: “END OF TEST 
ts (Pea eaSRALSASASASASAASRASASAARASAASRAASASLSASASLSA SAAS AA ASA AASLASAASLASAASLSAASALAALA SSE @ 7 
“*TEST 112 RECALIBRATE TEST 
> [RAE KER KEKEKKEKEEKEKKKEKEKEEKKEEEEREKEKEEE 
TST112:_ 
SCOPE :SCOPE CALL 

MOV #STACK, SP :LOAD THE STACK POINTER 

MOV $BASE ,RO =RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 


::SET TEST NUMBER IN APT MAIL BOX 


:GO SET VOLUME VALID 
;BRANCH TO 10$ IF NO ERROR 


MOV #112,$TESIN 
JSR PC,SETVV 
BR 10$ 


EMT 
JMP 330$ 
DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


MOV ADMD 'MUR'!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV: #0 ,RMER1 (RO) :LOAD RMER1 
MOV #0 ,RMER2(RO) ;LOAD RMER2 
MOV #RECAL !GO,RMCS1 (RO) ;LOAD RMCS1 


>STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS) 
MOV #2,R2 | 


20$: 


ee 


SEQ 0:2 
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000024 


000024 


000024 
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SEQ 0182 

MOV #DMD'MUR'DBEN'DBCK.RMMRI(RO) = LOAD RMMRI 
MOV #DMD 'MUR'DBEN.RMMRI(RO) -LOAD RMMRI 
DEC R2 
BNE 208 

:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
MOV #DMD ! DBEN, RMMR1 (RO) [LOAD RMMR1 

- MOV #2,R2 

"(MOV #DMD ' DBEN! DBCK. RMMR1 (RO) [LOAD RMMR1 

MOV #DMD ' DBEN..RMMR1 (RO) :LOAD RMMR1 
DEC R2 
BNE 30$ 

: VERIFY THAT OPI IS SET 
MOV RMER1 (RO) . SBDDAT : STORE RMER1 AT $BDDAT 
BIC #*COPI, $BDDAT 
BNE 40$ 
MOV #OP 1, $GDDAT 
MOV , SBDADR 
ADD #RMER1, SBDADR 
EMT 241 

40$: MOV #50$,$LPERR : CHANGE LOOP ON ERROR ADDRESS 


;VERIFY THAT RECALIBRATE ABORTS DURING EXECUTION 


50$ 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 60$ :BRANCH TO 60$ IF NO ERROR 


EMT 
JMP 330$ 
jENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
“(MOV #DMD MUR! DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #0.RMER1(RO)  :LOAD RMER1 
MOV #O.RMER2(RO) § :LOAD RMERZ 
MOV #RE CAL 'GO,RMCS1 (RO) :LOAD RMCS1 


;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
MOV #3,R2 


70$: 
MOV ADMD !MUR'DBEN!DBCK.RMMR1(RO) —«: LOAD _-RMMR1 
MOV #DMD ' MUR ' DBEN.RMMRI (RO) :LOAD RMMRI 
DEC R2 
BNE 70$ 

:SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD 'MUR ' DBEN' MDF .RMMR1 (RO) :LOAD RMMR1 

:STEP 2 CLOCKS AND VERIFY GO IS RESET 

ti MOV #2,R2 

"(MOV #DMD ' MUR! DBEN! MDF 'DBCK..RMMR1 (RO) :LOAD RMMRT 

MOV #DMD ‘MUR ' DBEN'MDF .RMMR1 (RO) :LOAD RMMR1 
DEC R2 
BNE 80$ 
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T112 RECALIBRATE TEST SEQ 0184 
4215 040370 016037 000000 001142 MOV RMCS1(RO) eed >STORE RMCS1 AT SBDDAT 
4216 040376 042737 177776 001142 BIC #°CGO,SBDDAT 
4217 040404 001405 BEQ 90$ 
4218 940406 910037 001136 MOV RO. $BDADR 
4219 9640412 005037 001140 CLR SGDDAT 
4220 040416 104242 EMT 242 


4 
155% 040420 012737 040426 001124 90$: MOV #100$ ,$LPERR > CHANGE LOOP ON ERROR ADDRESS 
inne, OPI SETS If ON CYLINDER LATCH DOESNT CLEAR 


4226 Les 004737 054450 JSR PC,SETVV :GO SET VOLUME VALID 
0432 000403 BR 110$ BRANCH TO 110$ IF NO ERROR 
040434 104000 EMT 
£354 040436 000137 041364 JMP 330$ 
+58) ;ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
4250 040442 110$: 
4231 040442 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
re 040450 012760 000000 000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
4235 040456 912760 000000 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
rit: 040464 012760 000007 000000 MOV #RECAL !GO,RMCS1 (RO) ;LOAD RMCS1 
4236 :STEP THE COMMAND SEQUENCER 
4237 040472 012702 000017 MOV #15. ,R2 
4238 040476 120$: 
4239 040476 012760 141001 000024 MOV ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
4240 040504 012760 041001 000024 MOV ADMD! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
4241 040512 005302 DEC R2 
1328 040514 001370 BNE 120$ | 
rhe: ;VERIFY THAT OPI IS SET 
4245 040516 016037 000014 001142 MOV RMER1 (RO), el sSTORE RMER1 AT $BDDAT 
7se8 eeeks 042737 157777 001142 BIC #*COPI,$BDDA 
4247 0405352 001011 BNE 130$ 
4248 040534 010037 001136 MOV RO,$BDADR 
4249 040540 062737 000014 001136 ADD #RMER1 , SBDADR 
4250 040546 012737 020000 001140 MOV #OPI , SGDDAT 
4251 040554 104243 EMT 243 


425 
£358 040556 012737 040564 001124 130%: MOV #150$ ,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
li ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS) 


4256 040564 , 

2589 ba0see 004737 054450 JSR PC, ,SETVV :GO SET VOLUME VALID 
040570 000403 BR 160$ ;BRANCH TO 160$ IF NO ERROR 
040572 104000 EMT 

$$28 040574 000137 041364 JMP 330$ 

4260 ;ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 

4261 040600 160$: 

4 040600 012 

eSa7 Rebs 012760 000000 000014 MOV #0,RMER1 (RO) : LOAD RMER1 

“ 0614 012760 000000 000042 MOV #0..RMER2 (RO) OAD RMER2 

rer 040622 012760 000007 000000 MOV #RECAL 'GO, RMCS1 (RO) ;LOAD RMCS1 

4267 :STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (15 CLOCKS) 


760 041401 000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 Nay a ;LOAD RMMR1 , | 
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4268 040630 
: 4269 040634 
040634 

4270 040642 

| 4271 04640650 
| 4272 040652 
427 






4274 
4275 040654 
4276 040662 
4277 


4286 

4287 040714 
4288 040722 
4289 040730 
4290 732 
4293 040752 
rats 040754 


= 
Ww 
8 
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SSsg 
™~ 
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4301 

tar6 

4303 040774 
4304 040774 
4305 041002 
4306 041010 
rt 041016 
£309 

4310 ps 1088 
4311 041030 
ési¢ Re laee 
4313 0410 
4314 041044 
4315 041046 
4316 

4317 

4318 041050 
4319 

4320 
4327 041056 


012702 


012702 
012760 


001370 


012760 


012702 


000015 


141401 
041401 


041001 
041401 
000003 


141401 
041401 


000012 
077777 
100000 
001136 
000012 
040762 


054450 


041401 
000000 
000000 
000007 
000015 


147401 
041401 


041001 
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MOV #13. .R2 


MOV #DMD ' MUR ‘ DBEN! DBCK ! MOC ,RMMR1 (RO) ;LOAD RMMR1 
44 #DMD ! MUR ! DBEN! MOC ,.RMMR1 (RO) ;LOAD RMAR1 


R2 
BNE 170$ 


;DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 
MOV #DMD !MUR '!DBEN, RMMR1 


(RO) ;LOAD 


RMMR 1 
MOV #DMD !MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMYR1 


:STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
MOV #3,R2 


180$: 


VERIFY 
001140 
001136 


001124 190$: 
s VERIFY 
200$: 


> ENABLE 
210$: 


MOV #DMD ! MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
+ 94 ee (RO) ;LOAD RMMR1 

BNE 180$ 

ATA IS SET 

MOV 


RMDS (RO), SBDDAT :STORE RMDS AT $BDDAT 
BIC #°CATA, SBDDA 

BNE 190$ 

MOV HATA, $GDDAT 

MOV RO, SBDADR 

ADD #RMDS , SBDADR 

EMT 244 

MOV #200$,$LPERR  :CHANGE LOOP ON ERROR ADDRESS 
THAT RECALIBRATt ABORTS AFTER EXECUTION DURING WAIT LOOP 


JSR PC ,SETVV :GO SET VOLUME VALID 


BR 210$ :BRANCH TO 210$ IF NO ERROR 
BR 330$ | 

DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 

MOV #DMD '! MUR ! DBEN' MOC, RMMR1 (RO) :LOAD RMMR1 
MOV #0, RMER1 (RO) :LOAD RMER1 

MOV #0 ,RMER2 (RO) =LOAD RMER2 

MOV #RECAL '!GO,RMCS1(RO) =LOAD RMCS1 


> STEP a saa tae TO FIRST ON LATCH TEST (135 CLOCKS) 


220$: 


000024 


MOV ADMD ! MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
«94 ee eneny eee ;LOAD RMMR1 
BNE 220$ 


; DROP On CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 


#DMD !MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 


;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
MOV #7 ,R2 


E 15 
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| 12 RECALIBRATE T SEQ 0186 
| 4322 041062 230$: 
4323 041062 012760 141001 000024 MOV ADMD ' MUR ' DBEN! DBCK , RMMR1 (RO) s;LOAD RMMRT 
4324 041070 012760 041001 000024 MOV ADMD! MUR! DBEN.RMMR1(RO) ;LOAD RMMR1 
| 4325 041076 005302 DEC R2 
| 4326 041100 001370 BNE 230$ 
4328 ;VERIFY THAT GO IS STILL SET 
rt ¥4 041102 616037 001142 MOV RMCS1(RO) , SBDDAT s;STORE RMCS1 AT $SBDDAT 
4330 041110 042737 177776 001142 BIC #°CGO, $BDDAT 
4331 041116 001006 BNE 249$ 
4332 041120 012737 000001 001140 MOV #GO, $GDDAT 
433 041126 010037 001136 MOV RO, $8DADR 
4334 041132 104265 EMT 245 
4336 :;SET SEEK INCOMPLETE ERROR 
4337 041134 240$: 
poe 041134 012760 041201 000024 MOV #DMD '! MUR ' DBEN!MSER,RMMR1 (RO) :LOAD RMMR1 
4339 :STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
4340 041142 012702 000003 MOV #3,R2 
4341 041146 250$: 
041146 012760 141201 000024 MOV #DMD ' MUR 'DBEN!MSER! DBCK,RMMR1 (RO) ;LOAD RMMR1 
4342 041154 012760 041201 000024 MOV #DMD ' MUR ' DBEN!MSER..RMMR1 (RO) :LOAD RMMR1 
4343 041162 005302 DEC R2 
4344 041164 001370 250$ 
4345 041166 016037 000000 001142 MOV RMCS1(RO) , SBDDAT s;STORE RMCS1 AT ‘$BDDAT 
4346 041174 042737 177776 001142 BIC #°CGO, $BDDAT 
4347 041202 001405 BEQ 2 
4348 041204 010037 001136 MOV RO, $BDADR 
4349 041210 005037 001140 CLR SGDDAT 
4330 041214 104246 EMT 246 
1326 041216 012737 0461224 001124 2608: MOV #300$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 
4354 -VERIFY THE TAG BUS DURING RECALIBRATE 
4355 041224 300$: 
4356 041224 004737 054450 JSR PC ,SETVV :;GO SET VOLUME VALID 
041230 000402 BR 310$ “BRANCH TO 310$ IF NO ERROR 
041232 104000 EMT 
4387 041234 000453 . BR 330$ 
4359 -ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
4360 041236 310$: 
4361 04 1236 012760 041401 000024 MOV #DMD 'MUR ' DBEN! MOC ,RMMR1 (RO) =LOAD RMMR1 
4362 041244 012760 000000 000014 MOV #0,RMER1 (RO) sLOAD RMER1 
4363 041252 012760 000000 000042 MOV #0,RMER2(RO) =LOAD RMER2 
4364 Relea 012760 000007 000000 MOV #RE CAL 'GO,RMCS1 (RO) s:LOAD RMCS1 
rd 1266 012702 041366 MOV #400$ ,R2 s INITIALIZE TABLE POINTER 
4367 -VERIFY TAG BUS ACCORDING TO TABLE 
4368 041 22 315$: 
04127 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT :STORE RMMR2 AT S$BDDAT 
4369 041 042737 150000 001142 BIC #ROA'ROB' TST. $BDDAT 
4370 041306 021237 001142 CMP (R2) , $BDDAT 
4371 041312 001411 BEQ 
437@ 041314 011237 001140 MOV (R2) , S$GDDAT 
4373 041320 010037 001136 MOV RO, $BDADR 
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SEQ 0187 
001136 ADD #RMMR2 , SBDADR 
EMT 247 
BR 330$ 
ZADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
"ADD #2,R2 
TST (R2) 
BM] 330$ :EXIT IF ENTRY NEGATIVE 
:STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
000024 MOV #DMD ! DBEN' MUR ! MOV ' DBCK..RMMR1 (RO) :LOAD RMMR1 
000024 MOV DMD | DBEN!MUR MOC ,RMMRY (RO) :LOAD RMMR1 
330$: BR 500$ : JUMP OVER TABLE 
j TABLE OF TAG BUS CONTROL AND BIT VALUES 
"WORD 1777 :BUS BITS AT HIGH IMPEDANCE STATE 
“WORD 1777 
“WORD CC!CH!BBO6 :CONTROL BITS ENABLED, BIT 6 ON 
“WORD CC!CH'BBO6 
“WORD  TAG!CC!CH'BBO6 ;TAG COMES ON 
“WORD  TAG!CC!CH'BBO6 
"WORD TAG!CC!CH'BBO6 
“WORD TAG!CC'CH'BBO6 
“WORD TAG!CC!CH'BBO6 
“WORD TAG!CC'CH'BRO6 
“WORD CC!CH'BBO6 :TAG GOES OFF 
“WORD CC!CH'BBO6 
"WORD 1777 :CONTROL BITS DISABLED 
-WORD -1 :END OF TABLE 
500S: :END OF TEST 
zs (Se SSBAAAAAEAALALAASAAAALASLASSASZASSAALAAALAASOSAASAASSLASGALASAALALASL SE & Ee 
“TEST 113 SEEK TEST 
CT RARER TEAK EKEKKREKEKKEKKEHKKKEKEKKEKEEKKEKKKEEKEKEEKEKKKK 
TST113: 
SCOPE :SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV $BASE ,RO >RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
001226 MOV #113, $TESIN >:SET TEST NUMBER IN APT MAIL BOX 
:VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 10$ “BRANCH TO 10$ IF NO ERROR 
JMP 330$ 


;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
:ADDRESS, AND LOAD SEEK COMMAND 


me ee 


— Se aE = 


C7RMPBO a eg ee DSKLS 
1113 SEEK TES 
4419 061464 
420 041464 012760 
4421 041472 012760 
t5% 041500 012760 
4235 041506 012760 
4424 041514 012760 
4425 041522 012760 
4426 
4427 
4428 041530 012702 
4429 041534 
041534 012760 
4430 041542 012760 
4431 041550 5302 
4432 041552 001370 
4433 
4434 
4435 041554 012760 
44356 041562 012702 
4437 041566 
041566 012760 
4438 041574 012760 
4439 041602 005302 
4440 041604 001370 
444] 
4442 
4443 041606 016037 
4444 041614 042737 
4445 041622 001011 
4446 041624 012737 
447 041632 010037 
4448 041636 062737 
ree} 041644 104250 
4451 041646 012737 
445 
ret 
4454 041654 
4455 041654 004737 
041660 000403 
041662 104000 
4456 041664 000137 
445 
4458 
4459 
4460 041670 
4461 041670 012760 
cant 041676 012760 
4463 041704 012760 
4464 041712 012760 
4465 041720 012760 
4466 041726 012760 
4467 
4468 
4469 041734 012702 
4470 041740 
4471 041740 012760 


040001 
000002 


140001 
040001 
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000024 
900006 


000024 
000024 
000024 


001142 
001142 


001140 
001136 


001124 


000024 


10$: 


MOV #DMD !MUR'DBEN.RMMR1(RO) :LOAD RMMRI 
MOV #0. RMDA(RO) :LOAD RMDA 
MOV #0.RMDC (RO) [LOAD RMDC 
MOV #0.RMER1(RO) §=LOAD RMERI 
MOV #0. RMER2(RO) “LOAD RMER2 
MOV #SEEK!GO,RMCS1 (RO) ZLOAD RMCS1 
-STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS) 
A MOV #2,R2 
"(MOV #DMD 'MUR ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD ‘MUR! DBEN.RMMR1(RO) :LOAD RMMR1 
DEC R2 
BNE 20$ 
:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
MOV #DMD ! DBEN. RMMR1 (RO) :LOAD RMMR1 
-" MOV #2,R2 
"MOV #DMD ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR’ 
MOV #DMD ' DBEN, RMMR1 (RO) :LOAD RMMR1 
DEC R2 
BNE 30$ 
:VERIFY THAT OPI IS SET 
MOV RMER1 (RO) ,SBDDAT :STORE RMER1 AT $BDDAT 
BIC #°COPI,$BDDAT 
BNE 40$ 
MOV #OP1,$GDDAT 
MOV RO, $BDADR 
ADD #RMER1, $BDADR 
EMT 250 
40$: MOV #50$,$LPERR : CHANGE LOOP ON ERROR ADDRESS 
{VERIFY THAT SEEK ABORTS DURING EXECUTION 
—— PC, SETVV :GO SET VOLUME VALID 
BR 60$ “BRANCH TO 60$ IF NO ERROR 
JMP 330$ 


;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
tne AND LOAD SEEK COMMAND 


ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
RMDA 


#0,RMDA(RO) ; LOAD 
-RMDC (RO) ;LOAD RMDC 
#0,RMER1 CRO) E 


#0 ,RMER2 (RO) ; LOAD 


2 
#SEEK!GO,RMCS1(RO) ;LOAD RMCS1 


STEP ge cee oe TO FIRST TEST FOR ABORT (3 CLOCKS) 
V a 


70$: 
MOV 





A 


ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


ee —- 


—_ NS SS 
OI 


ie te 
= — —-. - ———— 
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4472 041746 
4473 061754 
4474 041756 
4475 
4476 
4477 041760 
4478 
4479 


4480 041766 
0281 fee 


ree 042040 
rats 042042 


4494 
2695 042050 
4496 042050 
2054 


04 
042 

4497 042060 
4498 

4499 

4500 

4501 042064 
4502 042064 
4503 042072 
4504 042100 
4505 042106 
4506 042114 
4507 042122 
4508 

4509 

4510 042130 
31) Geb g 
1818 oaotae 
4514 042150 
4515 042152 
S216 

451 

4518 042154 
4519 042162 
4520 042170 
4521 042172 
rh 2176 
45 2204 
4526 042212 


> 
4) 
~w 
wn 


© 7RMPBO roy tah 4 8 DSKLS 
1113 SEEK T 


012760 
005302 
001370 
012760 


012702 


104251 
012737 


004737 
000403 


40 
104000 
000137 


RIOR 


~o 
Rute 


TST 7 


041001 


041101 
000002 


141101 
041101 


000000 
177776 
001136 
001140 


042050 
054450 


043100 


041001 
000000 
000 
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000024 


000024 


001124 


000024 
000006 


MOV #DMD !MUR!DBEN.RMMR1(RO) :LOAD RMMR1 
DEC R2 
BNE 70$ 
:SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD ' MUR ! DBEN! MDF , RMMR1 (RO) ZLOAD RMMR1 
:STEP 2 CLOCKS AND VERIFY GO IS RESET 
me MOV #2,R2 
"MOV #DMD 'MUR!DBEN! MDF 'DBCK,RMMR1 (RO) -LOAD RMMR1 
MOV #DMD !MUR!DBEN MDF , RMR (RO) :LOAD RMMR1 
BNE 80$ 
MOV RMCS1(RO),$BDDAT :STORE RMCS1 AT $BDDAT 
BIC #*CGO,$BDDAT 
BEQ 90$ 
MOV RO, $BDADR 
CLR $GDDAT 
EMT 251 | 
90$: MOV #100$,$LPERR | ;:CHANGE LOOP ON ERROR ADDRESS 
:VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 
gigi PC, SETVV :GO SET VOLUME VALID 
BR 110$ “BRANCH TO 110$ IF NO ERROR 
JMP 330$ 
:ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 
"MOV #DMD 'MUR '! DBEN, RMMR1 (RO) :LOAD RMMR1 
MOV #0,RMDA(RO) “LOAD RMDA 
MOV #0. RMDC (RO) *LOAD RMDC 
MOV #0.RMER1(RO)  =LOAD RMER1 
MOV #O.RMER2(RO) § :LOAD RMER2 
MOV #SEEK 'GO,RMCS1(RO) :LOAD RMCS1 
“STEP THE COMMAND SEQUENCER 
1208: a 
MOV #DMD'MUR'DBEN'DBCK.RMMR1(RO) ——: LOAD RMMR1 
MOV #DMD 'MUR'DBEN.RMMR1(RO) :LOAD RMMR1 
DEC R2 
BNE 120$ 
:VERIFY THAT OPI IS SET 
MOV RMER1 (RO), $BDDAT -STORE RMER1 AT $BDDAT 
BIC #*COPI,$BDDAT 
BNE 130$ 
MOV RO, $BDADR 
ADD #RMER1, SBDADR 
MOV #OP1, $GDDAT 
EMT 252 


¢7RMPBO tah 4B DSKLS 
7113 SEEK TES 
4526 042214 012737 
4527 
4528 
4529 042222 
4530 942222 004737 
042226 000403 
042230 104000 
4531 042232 000137 
$288 
453 
4534 
4535 042236 
4536 042236 012760 
4537 062244 012760 
4538 042252 012760 
4539 042260 012760 
4540 042266 012760 
4541 062274 012760 
cece 
454 
4544 042302 012702 
4545 042306 
042306 012760 
4546 042314 012760 
4547 042322 005302 
4548 042324 001370 
4549 
4550 
4551 pesete 012760 
1228 0423 012760 
455 
4554 
4555 042342 012702 
4556 042346 
4557 042346 012760 
4558 pStzc 012760 
4559 042362 005302 
4560 042364 001370 
4561 
to! 
4565 042366 016037 
4564 og tte 042737 
4565 042402 001011 
+298 besese 012737 
456 412 010037 
4568 042416 062737 
rs 14 042424 104253 
4570 
4571 042426 012737 
rae 
457 
4574 042434 
4575 042434 004737 
Re Sees 000403 
2442 104000 
4576 042444 000137 
4577 


TST 7 


042222 


054450 


043100 
041401 


000005 
000015 


141401 
041401 


041001 
041401 


000003 
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1308: MOV #150$.$LPERR | :CHANGE LOOP ON ERROR ADDRESS 
VERIFY ATA SETS If DRIVE COMPLETES SEEK (ON CYLINDER SETS) 
"JSR PC, SETVV :GO SET VOLUME VALID 


001124 


BR 160$ “BRANCH TO 160$ IF NO ERROR 
JMP 330$ 
:ENABLE DEBUG CLOCX, LOAD CYLINDER, TRACK AND SECTOR 
ia AND LOAD SEEK COMMAND 
000024 MOV #DMD 'MUR ! DBEN!MOC ,RMMR1 (RO) :LOAD RMMR1 
MOV #0, RMDA(RO) :LOAD RMDA 
000034 MOV #0.RMDC (RO) =LOAD RMDC 
14 MOV #O.RMER1(RO) = LOAD RMER1 
000042 MOV #0..RMER2(RO) “LOAD RMER2 
000000 MOV #SEEK'GO,RMCS1(RO) :LOAD RMCS1 
:STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
it MOV #13. ,R2 
000024 "MOV #DMD ! MUR! DBEN! DBCK!MOC,,RMMR1 (RO) :LOAD RMMR1 
000024 MOV #DMD !MUR ! DBEN!MOC , RMMR (RO) :LOAD RMMR1 
BNE 170$ 
:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 
000024 MOV #DMD 'MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
000024 MOV #DMD 'MUR | DBEN'MOC ,RMMR1 (RO) :LOAD RMMR1 
:STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
te MOV #3,R2 
000024 "MOV #DMD ! MUR ! DBEN! MOC ! DBCK.RMMR1 (RO) :LOAD RMMR1 
000024 MOV #DMD ! MUR! DBEN MOC , RMR (RO) :LOAD RMMR1 
BNE 180$ 
:VERIFY ATA IS SET | 
001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT $BDDAT 
001142 BIC #*CATA, $BDDAT 
BNE 90$ 
001140 MOV HATA, $GDDAT 
MOV RO, $BDADR 
001136 ADD RMDS , SBDADR 
EMT 3 
001124 190$: MOV #200$,$LPERR  ;CHANGE LOOP ON ERROR ADDRESS 


VERIFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP 
«JSR PC, SETVV :GO SET VOLUME VALID 


Four 210$ ;BRANCH TO 210$ IF NO ERROR 
JMP 330$ 





FT 


SEQ 0190 


eee se stteetineseennennens = 
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13 SEEK TEST SEQ 0191 
4578 ZENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR 
4579 “ADDRESS AND LOAD SEEK COMMAND 
4580 042450 2108: 
4581 042450 012760 041401 000024 MOV ADMD ' MUR ' DBEN! MOC, RMMR1 (RO) ;LOAD RMR 
4982 04.2456 012760 000000 000006 MOV #0, RMDA(RO) :LOAD RMDA 
4583 042464 012760 000000 000034 MOV #0. RMDC (RO) =LOAD RMDC 
4584 042472 012760 000000 000014 MOV #0.RMER1 (RO) :LOAD RMER1 
4585 042500 012760 000000 000042 MOV #0, RMER2 (RO) “LOAD RMER2 
4386 042506 012760 000005 000000 MOV #SEEKIGO RMCST (ROD :LOAD RMCS1 
4588 z;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
4589 042514 012702 000015 MOV #13.,R2 
4590 042520 2208: 
4591 042520 012760 141401 000024 MOV #DMD ! MUR ! DBEN! MOC ! DBCK,,RMMR1 (RO) :LOAD RMMR1 
4592 042526 012760 041401 000024 MOV ADMD 'MUR ' DBEN! MOC, RMMR1 (RO) s;LOAD RMMR1 
4593 042534 005302 DEC R2 
439% 042536 001370 BNE 220$ 
96 :DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 


45 
ht 44 042540 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


4599 ;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
4600 042546 012702 000007 MOV #7 Re 


4601 042552 2308: 
4602 042552 012760 141001 000024 MOV #DMD ' MUR ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
4603 042560 012760 041001 000024 MOV #DMD 'MUR'!DBEN.RMMR1(RO) :LOAD RMMR1 
4604 042566 005302 DEC R2 
4605 042570 001370 BNE 230$ 
4607 : VERIFY THAT GO IS STILL SET 
4608 042572 016037 000000 001142 MOV RMCS1(RO) , SBDDAT :STORE RMCS1 AT $BDDAT 
4609 042600 042737 177776 001142 BIC #°CGO, $BDDAT 
4610 042606 001006 BNE 240$ 
4611 042610 012737 000001 001140 MOV #G0,$GDDAT 
461¢ 042616 010037 001136 MOV RO, $8DADR 
4613 042622 104254 EMT 254 
4615 -SET SEEK INCOMPLETE ERROR 
4616 042624 240$: 
sien 042624 012760 041201 000024 MOV ADMD ' MUR! DBEN!MSER,RMMR1 (RO) =LOAD RMMR1 
4618 :STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
4619 042632 012702 000003 MOV #3,R2 . 
4620 042636 250$: 
042636 012760 141201 000024 MOv #DMD ' MUR! DBEN!MSER! DBCK,RMMR1 (RO) :LOAD RMMR1 
4621 042644 012760 041201 000024 MOV #DMD 'MUR | DBEN'MSER.RMMR1 (RO) =LOAD RMMR1 
4 é 3632 005302 DEC R 
4623 042654 001370 BNE 250$ 
462% 04 656 016037 000000 001142 MOV RMCS1(RO), SBDDAT -STORE RMCS1 AT $BDDAT 
4625 $o7e 042737 177776 001142 BIC #°CGO, $BDDAT 
4 2672 001405 BEQ 260$ 
4 674 010037 001136 MOV RO, $BDADR 
4628 042700 005037 001140 CLR SGDDAT 
4629 042704 104255 EMT 255 
4631 042706 012737 042720 001124 260%: MOV #300$.$LPERR | : CHANGE LOOP ON ERROR ADDRESS 
4632 042714 012703 000007 MOV #1,R3 “INITIALIZE CYLINDER ADDRESS 





—- 
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mS SEEK T SEQ 0192 
4633 
4634 -VERIFY THE TAG BUS DURING SEEK 
4635 042720 3008: 
4636 042720 004737 054450 JSR PC .SETVV GO SET VOLUME VALID 
042724 000402 BR 310$ :BRANCH TO 310$ IF NO ERROR 
042726 104900 EMT 
4637 042730 000463 BR 330$ 
4639 :ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
4640 “ADDRESS AND LOAD SEEK COMMAND 
4641 042732 310$: 
4642 042732 012760 041401 000024 MOV #DMD !MUR ! DBEN! MOC, RMMR1 (RO) :LOAD RMMR1 
4643 042740 012760 000000 000006 MOV #0, RMDA(RO) = LOAD RMDA 
4644 042746 010360 000034 MOV R3,RMDC (RO) :LOAD RMD 
§ 042752 012760 000000 000014 MOV #0,RMER1 (RO) s LOAD RMER? 
4646 042760 012760 000000 000042 MOV #0, RMER2 (RO) “LOAD RMER2 
4647 042766 012760 000005 006000 MOV #SEEK !GO,RMCS1(RO) :LOAD RMCS1 
4648 042774 012702 043114 MOV #400$ ,R2 : INITIALIZE TABLE POINTER 
: VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 
4651 043000 3158: 
04 016037 000040 001142 MOV RMMR2 (RO), SBDDAT STORE RMMR2 AT $BDDAT 
g 04 042737 150000 001142 BIC #ROQA!ROB' TST. $BDDAT 
4653 043014 011237 001140 MOV (R2) , SGDDAT 
4654 043020 050337 001140 BIS R3,$GDDAT :0R CYLINDER ADDRESS IN 
4655 043024 023737 001140 001142 CMP SGDDAT.$BDDAT :COMPARE EXPECTED AND RECEIVED 
4656 043032 001407 BEQ 320$ “BRANCH IF TAG BUS OK 
4657 043034 010037 001136 MOV RO, $BDADR 
4658 043040 062737 000040 001136 ADD #RMMR2 , SBDADR 
4659 043046 104256 EMT 256 
4660 045050 000413 BR 330$ 
466¢ | “ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
4663 043052 320$: 
4 3052 062702 000002 ADD #2,R2 | 
4665 043056 005712 TST (Re) 
3060 100407 BMI 330$ sEXIT IF ENTRY NEGATIVE 
> STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
043062 012760 151001 000024 #DMD ! DBEN! MUR! MOV! DBCK,RMMR1 (RO) :LOAD RMMR1 
4670 043070 012760 041401 000024 mv #DMD ! DBEN' MUR 'MOC ,RMMR1 (RO) :LOAD RMMR1 
467) 043076 000740 BR 315$ 
1058 -REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E.. 1.2.4.... 
4674 043100 3308: 
4675 04 3100 006303 ASL R3 :SHIFT TO NEXT CYLINDER 
4676 043102 020327 002000 CMP R3,41024. 
4677 04.3106 103001 BHIS  340$ :EXIT IF WAS DONE 
4678 043110 000703 BR 300$ -TEST NEXT CYLINDER 
4679 043112 000416 340$: BR 500$ = JUMP OVER TABLE 
4681 : TABLE OF TAG BUS CONTROL AND BIT VALUES 
468 043114 400$: 
4683 043114 001777 WORD 1777 -BUS BITS AT HIGH IMPEDANCE STATE 
4684 043116 1777 WORD 1777 
4685 043120 004000 .WORD (CC :CONTROL BITS ENABLED, BIT 6 ON 
4686 043122 004000 WORD (CC 
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13 SEEK SEO 019% 
4687 043124 024000 . WORD TAG! CC 7TAG COMES ON 
4688 Real §s 024000 . WORD TAG! CC 
4689 0431 024000 .- WORD TAG!CC 
| 4690 043132 024000 “WORD TAG'CC 
4691 oR 024000 -WORD TAG'!CC 
4692 043136 024000 -WORD TAG'!CC 
4693 043140 004000 -WORD (CC 7TAG GOES OFF 
4694 (043142 004000 -WORD (CC 
| prec 043144 001777 .WORD 1777 ;CONTROL BITS ISABLED 
| 4697 043146 177777 WORD =1 :END OF TABLE 
| (Sop 043150 500$: sEND OF TEST 
4701 SAAR EERE EERE REE AEEEEEER ERE RE EERERAERAR ERE 
“STEST 114 SEARCH TEST 
° J EAE AERA AREER AEA EEE AEE ERAEKEEHEEREKEET REE 
043150 TS1114: 
043150 SCOPE ;SCOPE CALL 
043152 000240 NOP 
043154 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
043160 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
043164 013701 001466 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
470 043170 012737 000114 001226 MOV #114, $TESIN * SET TEST NUMBER IN APT MAIL BOX 
ra :VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND .EXECUTION 
4705 043176 004737 054450 JSR PC,SETVV :GO SET VOLUME VALID 
043202 000403 BR 10$ ;BRANCH TO 10$ IF NO ERROR 
043204 104000 EMT 
2o8 043206 000137 045244 JMP 330$ 
4708 , sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
4709 ;ADDRESS, AND LOAD SEARCH COMMAND 
4710 043212 10$: 
4711 063212 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LGAD RMMR1 
ar 043220 012760 000000 000006 MOV #0,.RMDAC(RO) :LOAD RMDA 
71 Reeser 012760 000000 000034 MOV #0 ..RMDC (RO) ;LOAD RMDC 
714 bees 4 012760 000000 000014 MOV #0 ,RMER1 (RO) He RMER1 
715 04 $e6 012760 Q00000 000042 MOV #0, RMER2 (RO) OAD RMER2 
ay 043250 012760 000031 000000 MOV #SEARCH!GO, pcst ik) :LOAD RMCS1 
718 ;STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS) 
719 043256 012702 000002 MOV #2,R2 
720 043262 20$: 
043262 0 141001 000024 MOV #DMD ' MUR 'DBEN! DBCK, RMMR1 (RO) ;LOAD RMMR1 
721 043270 012760 041001 000024 MOV ADMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
os¢ og $4 005302 DEC R2 
oo6? 043 001370 BNE 20$ 
4725 ;DROP UNIT READY AND STEP oan th SEQUENCER (2 CLOCKS) 
1288 043302 012760 040001 000024 MOV #DMD ' DBEN, RMAR1 (RO) 7LOAD RMMR1 
4727 043310 012702 000002 MOV #2,R2 
4728 043314 30$: 
Roses 012760 140001 000024 MOV #DMD ' DBEN' DBCK, RMMR1 (RO) ;LOAD RMMR1 
4729 3322 012760 040001 000024 MOV #DMD ' DBEN, RMMR1 (RO) ;LOAD RMMR1 
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7114 SEAR TES SEQ 0196 
4730 043330 005302 DEC R2 
4731 043332 001370 BNE 30$ 
4733 :VERIFY THAT OPI IS SET 
4734 043334 016037 0600014 001142 MOV RMER1 (RO), SBDDAT 7STORE RMER1 AT $B8DDAT 
4735 043342 042737 157777 001142 BIC #*COPI,SBDDAT 
4736 043350 001011 BNE 40$ 
4737 043552 012737 020000 001140 MOV #0P1,$GDDAT 
38 043360 010037 001136 MOV RO, $BDADR 
4739 043364 062737 000014 001136 ADD #RMER1 , SBDADR 
4740 043372 104257 EMT 257 


41 . 
ress 043374 012737 043402 001124 40$: MOV #50$.$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


ae ee * 
NN NN NON 


44 ; VERIFY THAT SEARCH ABORTS DURING EXECUTION 

4745 043402 50S: 

4746 043402 004737 054450 JSR PC,SETVV ;GO SET VOLUME VALID 
043406 000403 BR 60$ ;BRANCH TO 60$ IF NO ERROR 
043410 104000 EMT 

4767 643412 000137 045244 JMP 330$ 


;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
jADDRES SS. AND LOAD SEARCH COMMAND 


043416 
043416 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
043424 012760 000000 000006 MOV #0, RMDA(RO) :LOAD RMDA 
043432 012760 000000 000034 MOV #0.RMDC (RO) 3LOAD RMDC 
043440 012760 000000 000014 MOV #0,RMER1 (RO) “LOAD RMER1 
043446 012760 000000 000042 MOV #0,RMER2(RO) :LOAD RMER2 
043454 012760 000031 000000 MOV #SEARCH'GO, RMCS1 (RO) :LOAD RMCS1 
STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
043462 012702 000003 MOV #3,R2 
4761 043466 70$: 
043466 012760 141001 000024 MOV ADMD ' MUR ' DBEN' DBCK,RMMR1 (RO) ;LOAD RMMR1 
043474 012760 041001 000024 MOV ADMD 'MUR'DBEN.RMMR1(RO) ;:LOAD RMMR1 
4764 043502 005302 DEC Re 
ores 043504 001370 BNE 70$ 
4767 ZSET DRIVE FAULT TO CAUSE ABORT CONDITION 
15e8 043506 012760 041101 000024 MOV ADMD ' MUR ' DBEN' MDF ,RMMR1 (RO) :LOAD RMMR1 
4770 ;STEP 2 CLOCKS AND VERIFY GO IS RESET 
4771 043514 012702 000002 MOV #2,R2 
4 043520 80$: | 
OO Re 012760 141101 000024 MOV ADMD 'MUR ' DBEN' MDF 'DBCK,RMMR1 (RO) :LOAD RMMR1 
3526 012760 041101 000024 MOV ADMD ! MUR ' DBEN! MDF ,RMMR1 (RO) :LOAD RMMR1 
0435 5302 DEC R2 
0435 001370 BNE 80$ 
043540 016037 000000 001142 MOV RMCS1(RO) , SBDDAT s;STORE RMCS1 AT S$SBDDAT 
043546 042737 177776 001142 BIC - #*CGO, SBDDAT | 
og it 001405 BEQ 9 
043556 010037 001136 MOV RO, $BDADR 
043562 005037 001140 CLR $GDDAT 
043566 104260 EMT 260 
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SEQ 0195 


;DURING DATA COMMAND TESTS) 
001124 90%: MOV #100$ , SLPERR > CHANGE LOOP ON ERROR ADDRESS 
isos. OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


JSR PC ,SETVV :GO SET VOLUME VALID 
BR 110$ 7BRANCH TO 110$ IF NO ERROR 


EMT 

JMP 339$ 
sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS. AND LOAD SEARCH COMMAND 


000024 MOV —«s #DMD 'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 | 
000006 Mov § #O,RMDA(RO) —-; LOAD RMDA | 
000034 MOV  #O.RMDC(RO) = :L | 
000014 MOV §- #O.RMERI(RO) — : LOAD RMERT 
000042 MOV #O.RMER2(RO) —: LOAD RMER2 = 
000000 MOV —s« #SEARCH'GO,RMCS1(RO) —«; LOAD _RMCS1 

STEP THE COMMAND SEQUENCER 

‘ogg, MOY «1a Re 
000024 MOV «DMD 'MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMRI 
000024 MOY DMD! MUR! DBEN.RMMR’ (RO) LOAD RMMRI 

BNE ——- 1208 


; VERIFY THAT OPI IS SET | 
142 MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT $BDDAT 
142 ek —— 


001136 ADD ARMER1 , SBDADR 
001140 MOV #OPI , SGDDAT - 
EMT 261 


001124 130%: MOV #150$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


sVERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CYLINDER AND 
— COMPARE SETS) 


JSR PC ,SETVV :GO SET VOLUME VALID 
BR 160$ ;BRANCH TO 160$ IF NO ERROR 


EMT 
IMP = --330$ 


;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
—* AND LOAD SEARCH COMMAND 


000024 MOV #DMD ! MUR ! DBEN! MOC , RMMR1 (RO) ;LOAD RMMR1 
MOV #0 ,RMDA(RO) ;LOAD RMDA 

000034 MOV #0,.RMDC (RO) ZL RMDC 

000014 MOV #0 ,RMER1 (RO) ;LOAD RMER1 

000042 MOV #0 .RMER2 (RO) ;LOAD RMER2 

000000 MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 
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000026 
000024 


001124 





: STEP = =F TO FIRST GN LATCH TEST (17 CLOCKS) 
170$: yi 


MC #DMD ' MUR ' DBEN! DBCK 'MOC , RMR (RO) ;LOAD RMMR! 
“+4 ee -RMAR1 (RO) sLOAD RMR 
BNE 170$ 


:DROP ON CYLINDER 70 — LATCH.AND RAISE INDEX PULSE 
:TO SET FORMAT CHANGE FLOP 
MOV #DMD ! MUR ! DBEN! MI, RMMR1 (RO) ;LOAD RMARI 


sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 
MOV #DMD ! MUR! 


DBEN! MOC !MSEN, RMMR1 (RO) [LOAD RMMR1 
:STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
180$ _ — 
"MOV #DMD '! MUR ' DBEN!MOC !MSEN! DBCK .RMMR7 (RO) : LOAD RMMR 1 
MoV #DMD !MUR !DBEN! MOC !MSEN, RMMRT (RO) -LOAD RMMR1 
BNE 180$ | 


oA 5 jaca COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE 


MOV #DMD!' MUR! MOC! DBEN!MSEN'MSC.RMMR1(RO) = LOAD RMMR1 
MOV #DMD 'MUR' MOC ! DBEN'MSEN!MSC'MS,RMMR1(RO) :LOAD RMMR1 
MOV #DMD!MUR!MOC!DBEN!MSEN!MSC,RMMR1(RO) = LOAD RMMR1 
:CLOCK SEQUENCER TO SET ATA (3 CLOCKS) 
ay MOV #3,R2 sR2 = CLOCK COUNT 
MOV #DMD 'MUR'MOC! DBEN!MSEN!DBCK,RMMR1(RO) =LOAD RMMR1 
mov #DMD !MUR !MOC !DBEN!MSEN, RMR] (RO) “LOAD RMMRt 
BNE 185$ 
:VERIFY ATA IS SET 
MOV RMDS(RO), SBDDAT :STORE RMDS AT $BDDAT 
BIC CATA, $BDD 
BNE 190$ 
MOV #ATA, $GDDAT 
MOV RO, $BDADR 
ADD #RMDS , $BDADR 
EMT 262 | 
190$: MOV #200$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
sVERIFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP 
"JSR PC, SETVY :GO SET VOLUME VALID 
BR 210$ -BRANCH TO 210% IF NO ERROR 
JMP 330$ 


sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 


ee et 
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VA SEARCH TEST SEQ 0197 

4890 -ADDRESS AND LOAD SEARCH COMMAND 

| 4391 0664244 510$- 
1892 044244 012760 041401 000024 MOV #DMD ! MUR! DBEN! MOC .RMMR1 VeRO) ZLOAD RMMR1 

| 4893 044252 012760 000000 000006 MOV #0. RMDA(RO) :LOAD RMDA 

| 4894 044260 012760 000000 000034 MOV #0. RMDC (RO) =LOAD RMDC 

| 4895 044266 012760 000000 0000174 MOV #0, RMER1 (RO) [LOAD RMER1 

| 4896 04427 012760 000000 000042 MOV #0.RMER2 (RO) =LOAD RMER2 
4397 044302 012760 000031 000000 MOV #SEARCH'GO.RMCS1 (RO) [LOAD RMCS1 
4899 :STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
4900 044310 012702 000021 MOV ge 
4901 044314 220$: 
4902 044314 012760 141401 000024 MOV #DMD 'MUR ! DBEN! MOC ' DBCK,RMMR1 (RO) :LOAD RMMR1 
4903 044322 012760 041401 000024 MOV #DMD ' MUR ' DBEN! MOC, RMMR1 (RO) :LOAD RMMR1 
4904 0443 5302 DEC R2 
res <4 044332 001370 220$ 
907 :DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 
4908 044334 012760 041001 000024 MOV #DMD 'MUR'!DBEN,RMMR1(RO) :LOAD RMMR1 
910 :STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
4911 044342 012702 000007 MOV #7 Re 
4912 044346 2308: 
4913 044346 012760 141001 000024 MOV #DMD ' MUR ! DBEN! DBCK ,.RMMR1 (RO) :LOAD RMMR1 
4914 044354 012760 041001 000024 MOV #DMD 'MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
4915 044362 5302 DEC R2 
4916 044364 001370 BNE 230$ 
491 | :VERIFY THAT GO IS STILL SET 
4919 044366 016037 000000 001142 MOV RMCS1 (RO) SBDDAT :STORE RMCS1 AT $BDDAT 
4920 044374 042737 177776 001142 BIC #*CGO, $BDDAT 
35: ever s| 001006 BNE 240$ 
49 g 4404 012737 000001 001140 MOV #G0, SGDDAT 
4923 044412 010037 001136 MOV RO, $BDADR 
49 4 044416 104263 EMT 263 
4926 -SET SEEK INCOMPLETE ERROR 
4927 044420 2408: 
om 044420 012760 041201 000024 MOV ADMD ! MUR ! DBEN!MSER,RMMR1 (RO) :LOAD RMMR1 
49 :STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
49 044426 012702 000003 V #3,R2 
4931 044432 2508: 

4432 012760 141201 000024 MOV #DMD 'MUR ! DBEN!MSER ! DBCK ,RMMR1 (RO) :LOAD RMMR1 

4932 4440 012760 041201 000024 MOV ADMD ' MUR ' DBEN'MSER,RMMR1 (RO) :LOAD RMMR1 
49 4446 90 302 DEC R 
4934 0444 1370 BNE 250$ 
4935 044452 016037 000000 001142 MOV RMCS1(RO) , SBDDAT :STORE RMCS1 AT $BDDAT 
49) Bees 042737 177776 001142 BIC #*°CGO, $BDDAT 
49 4466 001405 BEQ 260$ 
49 44 010037 001136 MOV RO, SBDADR 
49 4474 005037 001140 CLR SGDDAT 
4940 4500 104 EMT 264 
456g 044502 012737 044510 001124 260%: MoV #265$.$LPERR | : CHANGE LOOP ON ERROR ADDRESS 
4944 : VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP 
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4945 044510 
4946 04451 y 
044514 


044516 
4947 044520 
4948 


tath 
4951 044524 


tage 044612 
4 
4 

rh 044614 


rh. 044622 


497" 
pete 044630 


4994 732 
4995 044740 
4996 


4997 
4998 044742 
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141401 
041401 
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051401 
000002 
151401 
051401 
000004 
000024 
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151401 
051401 


004000 
001136 
000024 
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000024 
000006 


000024 


000024 


000024 
000024 


001142 
001142 


000024 
000024 


001140 
001136 
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JSR PC ,SETVV :GO SET VOLUME VALID 

oer 270$ BRANCH TO 2708 IF NO ERROR 
JMP 330$ 

DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 

- AND LCAD SEARCH COMMAND 

MOV #DMD - MUR - DBEN: MOC , RMMR1 (RO) :LOAD RMMR1 
MOV #0 ,RMDA(RO) LOAD RMDA 

MOV eRMDC (RO) : LOAD RMDC 

MOV #0 .RMER1 (RO) ;LOAD RMER1 

MOV #0 ,RMER2 (RO) ;LOAD RMER2 

MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 


7 STEP = SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 


275$: 


*e 


ADMD ! MUR ! DBEN! DBCK !MOC ,RMMR1 (RO) 
ADMD ! MUR ! DBEN! MOC ,RMMR1 (RO) 


R2 
275$ 


;LOAD RMMR1 
;LOAD RMMR1 


ito ON CYLINDER TO a fy LATCH, AND RAISE INDEX PULSE 


SET FORMAT CHANGE F 
MOV 


sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 
MOV ADMD ! MUR! 


#DMD 'MUR' DBEN!MI, RMMR 1 (RO) ;LOAD RMYR1 


DBEN! MOC '!MSEN, RMMR1 (RO) :LOAD RMMR1 
:STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
sane MOV #2,R2 
"MOV #DMD! MUR! DBEN!MOC SMSEN!DBCK,RMMR1(RO)  =LOAD RMMR1 
MOV #DMD MUR! DBEN!MOC !MSEN. RAR (RO) *LOAD RMMR1 
BNE 280$ 
;VERIFY THAT SEARCH ENABLE IS ON DURING SECTOR COMPARE LOOP 
vet MOV #4 ,R2 :R2 = CLOCK COUNT 
"MOV RMMR1 (RO). SBDDAT -STORE RMMR1 AT S$BDDAT 
BIC #*CESRC,$BDDA 
BEQ 282$ :BRANCH IF SEARCH NOT ENABLED 
MOV #DMD 'MUR'MOC! DBEN'MSEN!DBCK.RMMR1(RO) | :LOAD RMMR1 
MOV #OMD MUR 'MOC | DBEN!MSEN. " RMR (RO) *LOAD RMMR1 
BNE 281$ 
BR 283$ 
282$: MOV #ESRC,$GDDAT 
MOV RO, $BDADR 
ADD #RMPR1 , SBDADR 
EMT 265 


>SET DRIVE FAULT TO CAUSE ABORT CONDITION 


283$ 


SEQ 0198 


“rr 
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14 SEARCH TES SEC 0199 
044742 012760 051501 000024 MOV SDMD ! MUR! DBEN! MOC 'MSEN! MDF ,RMMR1 (RO) 7LOAD RMMR1 
5000 z:STEP 2 CLOCKS AND VERIFY GO IS RESET 
5001 044750 012702 000002 MOV #2,R2 zR2 = CLOCK COUNT 
5002 044754 285$: 
044754 012760 151501 000024 MOV #DMD ' MUR ' DBEN!MOC 'MSEN! MDF 'DBCK.RMMR1 (RO) ;LOAD RMMR1 
5003 044762 012760 051501 000024 MOV ADMD ' MUR ' DBEN! MOC 'MSEN! MDF ,RMMR1 (RO) S;LOAD RMMR1 
5004 044770 005302 DEC R2 
5005 044772 001370 BNE 285$ 
5006 044774 016037 000000 001142 MOV RMCS1(RO), on ;STORE RMCS1 AT $BDDAT 
5007 045002 042737 177776 001142 BIC #°CGO, SBDDAT 
5008 045010 001406 BEQ 290$ 
5009 045012 012737 O00000 001140 MOV #0, $GDDAT 
5010 045020 010037 001136 MOV RO, S$BDADR 
rae 045024 104260 EMT 260 
5015 045026 012737 045040 001124 290$: MOV #300$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 
sBig 045034 012703 000001 MOV #1,R3 INITIALIZE CYLINDER ADDRESS 
5016 >VERIFY THE TAG BUS DURING SEARCH 
5017 045040 300$: 
5018 045040 004737 054450 JSR PC,SETVV :GO SET VOLUME VALID 
045044 310$ :BRANCH TO 310$ IF NO ERROR 
045046 104000 : EMT . 
25}8 045050 000475 BR 330$ 
5021 :ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
5022 ;ADDRESS AND LOAD SEARCH COMMAND 
5023 045052 310$: 
5024 045952 012760 041401 000024 MOV #DMD ' MUR ' DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
5025 045060 012760 000000 000006 MOV #0 ,RMDA(RO) : LOAD RMDA 
5026 045066 010360 000034 MOV R3,RMDC (RO) ;LOAD RMDC 
5027 045072 012760 000000 000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
5028 045100 012760 000000 000042 MOV #0 ,.RMER2 (RO) 3LOAD RMER2 
206? 045106 012760 000031 0600000 MOV #SEARCH!GO, RMCS1(RO) ;LOAD RMCS1 
5031 DOI IIIS ICICI III III IIIT IO IO ink 
ry ; MOV #400$ ,R2 INITIALIZE TABLE POINTER 
5034 ;HARDWARE ECO CHANGE TO THE PLA OF THE 
5035 ;CS BOARD. 
5036 045114 012702 000011 MOV #9.,R2 ;CLOCK THE SEQUENCER THRU THE FIRST 
5037 9. COMMAND SEQUENCES TO ALLOW THE PROGRAM 
5038 3;TO RUN WITH OR WITHOUT THE ECO. 
5039 045120 312$: : 
5040 Ore Se 012760 141401 000024 MOV ADMD ! DBEN! MUR! MOC ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
5041 5126 012760 041401 000024 MOV #DMD ' DBEN! MUR! MOC ,RMMR1 (RO) 3 LOAD RMMR 1 
enet 045134 005302 DEC R2 ; DONE 9. CLOCKS ? 
50435 045136 001370 BNE 312$ :NO ! 
5044 045140 012702 045302 MOV #450$,R2 NI TIALIZE NEW TABLE POINTER 
5045 TARA IOI IOI IEIISISIIOIOIISIIUIDIOIOIIIIIOIII IIIT IOI IIIT IIIT I 
5046 
5047 -VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 
5048 045144 315$: 
045144 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT 7STORE RMMR2 AT SBDDAT 
049 045152 042737 150000 001142 BIC - #ROA'ROB' TST, SBDDAT 
5050 045160 011237 001140 MOV (R2) , SGDDAT 
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001142 


001136 


00002 
000024 


SEQ 0200 
BIS R3,$GDDAT :OR CYLINDER ADDRESS IN 
CMP SGDDAT.SBDDAT =COMPARE EXPECTED AND RECEIVED 
BEQ 320$ sBRANCH IF TAG BUS OK 
MOV RO, $BDADR 
ADD #RMMR2 , SBDADR 
EMT 266 
BR 340$ 
ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
"ADD #2,R2 
ST (R2) 
BM! 330$ :EXIT IF ENTRY NEGATIVE 
:STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
MOV #DMD ! DBEN! MUR! MOC ' DBCK,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD ' DBEN! MUR! MOC .RMMR1 (RO) :LOAD RMMR1 
BR 315$ 
gREPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E.. 1.2.4.... 
"ASL R3 :SHIFT TO NEXT CYLINDER 
CMP R3,41024. 
BHIS 340$ :EXIT IF WAS DONE 
BR 300$ =TEST NEXT CYLINDER 
340$: BR 500$ > JUMP OVER TABLE 


inne OF TAG BUS CONTROL AND BIT VALUES 


-WORD 1777 :BUS BITS AT HIGH IMPEDENCE STATE 
-WORD 1777 
-WORD 1777 
-WORD 1777 
-WORD 1777 
-WORD CC :CONTROL BITS ENABLED, BIT 6 ON 
-WORD (CC 
-WORD TAG!CC > TAG COMES ON 
-WORD TAG!CC ) 
450$: >START TABLE HERE FOR HARDWARE ECO CHANGE 
-WORD TAG!CC 
~WORD TAG!CC 
-WORD TAG!CC 
-WORD TAG!CC 
-WORD <1 7END TABLE HERE FOR HARDWARE ECO CHANGE 
; -WORD (CC ;TAG GOES OFF 
-WORD (CC 
-WORD 1777 ; CONTROL BITS DISABLED 
-WORD 1/777 
-WORD 1777 
-WORD 1/777 
-WORD -1 ;END OF TABLE 
500$: sEND OF TEST 


oot AAA SRA RARER RRRSRRARRRRRSR ASA SSARSRAR SAAS ARSS RRR SARE RRASRR RRA SSS SS | 
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1118 SEARCH TIMEOUT TEST SEQ 0201 
s*TEST 115 SEARCK TIMEOUT TEST 
Ff SAAR AE AAAAAAAAAA AAA TAAAERAARAEAAAARERAREREARAEKERERE HERRERO 
045330 17115: 
945330 000004 SCOPE ZSCOPE CALL 
| 045332 000240 NOP 
| 045334 012706 001100 MOV ASTACK,SP :LOAD THE STACK POINTER 
| 045340 013700 001276 MOV SBASE .R :RO = UNIBUS ADDRESS 
| 045344 013701 001466 , MOV TSTQUE ,R1 :R1 = ROINTER TO DEVICE 
| oiad 045350 012737 000115 001226 MOV #115, $TESIN >:SET TEST NUMBER IN APT MAIL BOX 
| 5109 045356 004737 054450 JSR PC. SETVV :GO SET VOLUME VALID 
| 045362 000402 BR 10$ “BRANCH TO 10$ IF NO ERROR 
045364 104000 EMT 
3110 045366 000550 BR 90$ 
5112 :ENABLE DEBUG CLOCK AND LOAD SEARCH COMMAND 
5113 045370 108: 
$114 045370 012760 041401 000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) :LOAD RMMR1 
5115 065376 012760 000000 000014 MOV #0, RMER1 (RO) :LOAD RMER1 
5116 045404 012760 000000 000042 MOV #0.RMER2 (RO) “LOAD RMER2 
5117 045412 012760 000000 000034 MOV #0.RMDC (RO) =LOAD RMDC 
$118 045420 012760 000000 000006 MOV #0.RMDA(RO) “LOAD RMDA 
3119 045426 012760 000031 000000 MOV #SEARCH!GO,RMCS1 (RO) :LOAD RMCS1 
5121 :EXECUTE SEARCH TO TEST FOR ON LATCH RESET (17 CLOCKS) 
5128 045434 012702 000021 MOV #17. .R2 
5123 045440 208: 
045440 012760 141401 000024 MOV #DMD ! MUR ! DBEN! MOC ! DBCK,,RMMR1 (RO) :LOAD RMMR1 
§124 045446 012760 041401 000024 MOV #DMD 'MUR | DBEN' MOC .RMMR1 (RO) :LOAD RMMR1 
5125 045454 005302 DEC R2 
2158 045456 001370 BNE 20$ 
5128 :DROP ON CYLINDER TO RESET LATCH. RAISE ON CYLINDER 
5129 045460 012760 041001 000024 MOV #DMD!MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
3130 045466 012760 041401 000024 MOV #DMD ! MUR 'DBEN! MOC, RMMR1 (RO) :LOAD RMMR1 
3132 :STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 CLOCKS) 
5133 045474 012702 000002 MOV #2,R2 
5134 045500 30$: 
045500 012760 151401 000024 MOV #DMD ! DBEN!MUR!MOC!DBCK!MSEN,RMMR1(RO)  =LOAD RMMRI 
5135 045506 012760 051401 000024 MOV #DMD ' DBEN! MUR 'MOC 'MSEN.RMMR1 (RO) =LOAD RMMR1 
5136 045514 005302 DEC R2 
3137 045516 001370 RNE 30$ 
5139 ;THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP. STEP 
5140 : THROUGH THE LOOP AND VERIFY SEARCH IS ENABLED. 
5141 045520 012702 000005 MOV #5,.R2 | 
$142 045524 40$: 
045524 012760 151401 000024 MOV #DMD 'DBEN!MUR!MOC !DBCK'MSEN,RMMR1(RO)  :LOAD RMMR1 
5143 0459 2 012760 051401 000024 MOV #DMD ' DBEN! MUR! MOC 'MSEN.RMMR1 (RO) “LOAD RMMR1 
5144 045540 016037 000024 001142 MOV RMMR1 (RO) . $BDDAT :STORE RMMR1 AT $BDDAT 
5145 045546 042737 173777 001142 BIC #°CESRC, $BDDAT 
5146 045554 001403 BEQ 50$ -BRANCH IF SEARCH NOT ENABLED 
5147 045556 005302 DEC R2 
5148 045560 007361 40$ 
5149 045562 000412 BR 60$ 





alii 
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115 SEARCH TIMEOUT TEST SEQ 0202 
5150 045564 012737 004000 001140 50S: MOV #ESRC,SGDDAT >SETUP ERROR MSG 
5151 045572 010037 601136 MOV RO, SBDADR 
2128 045576 062737 000024 001136 ADD #RMMR 1. SBDADR 
5153 045604 104265 EMT 265 
gee 045606 40 O$ 
5156 zDROP MSEN TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET. 
5157 045610 60$: 
5158 045610 012760 041401 000024 MOV ADMD 'MUR 'MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
5159 045616 012737 070000 001534 MOV #79000 .WATCH SET WATCHDOG TIMER VALUE 
045624 004777 133706 JSR PC,aCLOCK START THE CLOCK 
5160 045630 70$: 
045630 016037 000014 001142 MOV RMER1(RO) , $BDDAT :STORE RMER1 AT $BDDAT 
-5161 045636 042737 157777 001142 BIC #*COP1,$BDDAT 
5162 045644 001017 BNE 80$ wien 
5163 045646 005737 001534 TST WATCH 
* 5164 045652 001366 BNE 70$ 
5165 045654 004777 133660 JSR PC, aSTOPCL :STOP THE CLOCK 
5166 045660 012737 020000 001140 MOV #OPI,$GDDAT : SETUP ERROR MSG 
5167 045666 010037 001136 MOV RO. $BDADR 
5168 045672 062737 000014 001136 ADD #RMER1, $BDADR 
5169 -045700 104267 EMT 267 
5170 045702 000402 BR 90$ 
5171 045704 BOS: 
5970 045704 004777 133630 JSR PC, a@STOPCL :STOP THE CLOCK 
git? 045710 90$: sEND OF TEST 
5175 CT AAR RKC EKKEEKEKEKKKKEKEKKEE 
:*TEST 116 DATA COMMAND TESTS (1) 
CT ERE KEKE KEKE EKER EKER EKER KEKE EKKKEKKKKKKEK 
045710 TST116: 
045710 000004 SCOPE :SCOPE CALL 
045712 000240 NOP 
045714 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
045720 013700 001276 MOV $RASE ,RO :RO = UNIBUS ADDRESS 
045724 013701 001466 MOV TSTQUE ,R1 zR1 = POINTER TO DEVICE 
el 045730 012737 000116 001226 MOV #116,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
ah ;VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY 
5179 045736 004737 054450 JSR PC, SETVV :GO SET VOLUME VALID 
045742 000402 BR 10$ :BRANCH TO 10$ IF NO ERROR 
045744 104000 EMT 
3189 045746 000471 BR 40$ 
5182 ;ENABLE DEBUG CLOCK AND LOAD READ COMMAND 
5183 045750 10$: 
5184 045750 012760 041401 000024 MOV #DMD 'MUR ! MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
5185 045756 012760 000000 000014 MOV #0,RMER1 (RO) :LOAD RMER1 
5186 045764 012760 000042 MOV #0,RMER2 (RO) LOAD RMER2 
5187 045772 012760 000000 000006 MOV #0, RMDA(RO) LOAD RMDA 
5188 046000 012760 000000 000034 MOV #0,RMDC (RO) >LOAD RMDC 
aie 046006 012760 000071 000000 MOV #RD'GO,RMCS1(RO) >LOAD RMCS1 
$191 :STEP COMMAND SEQUENCER TO UNIT READY TEST (3 CLOCKS) 





_———— i ee 
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046040 


202 04604 
5203 046052 


6 
046052 
5204 046060 
5205 046066 
5206 046070 
5207 046072 
5208 046100 
5209 0461 
5210 046110 
5211 046116 
S212 046122 
5213 046130 
5214 
5215 046132 
5216 
5217 
5218 0461 
5219 046140 
046144 
6146 
5220 046150 
5221 
5222 
52235 046152 
5224 046152 
5225 046160 
5226 046166 
5227 046174 
5228 046202 
2667 046210 
52 
5231 
2Se6 046216 
5233 046222 
046222 
S30 046230 
5235 046236 
5236 046240 
5237 
5238 
5239 046242 
ef 
41 
5242 046250 
5243 046254 


012702 


012702 
AE th 


104270 
012737 


004737 


012760 


012702 


000003 
141401 


041401 
040401 
000002 
140401 
040401 


000014 
157777 


020000 
001136 
000014 


046140 
054450 


041401 
000 


000004 


141401 
041401 


041501 


000001 


I 16 
MACRO V04.00 4-APR-81 01:24:25 PAGE 13-107 


000024 
000024 


000024 


000024 
000024 
001142 
001142 
001149 
001136 


001124 


000024 
0 4 
000034 
000000 


000024 
000024 


000024 


= MOV #3,R2 
"MOV #DMD ' MUR! MOC ! DBEN! DBCK. RMMR1 (RO) :LOAD RMMR1 
MOV #DMD | MUR MOC ! DBEN. RMMR 7 (RO) ZLOAD RMMRI 
BNE 20$ 
:DROP UNIT READY 
MOV #DMD 'MOC'DBEN,RMMR1(RO) :LOAD RMMR1 
:STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS) 
“<a MOV #2,R2 
"MOV #DMD !MOC ! DBEN! DBCK,,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD'MOC 'DBEN.RMMR1(RO) :LOAD RMMR1 
DEC R2 
BNE 30$ 
MOV RMER1 (RO), $BDDAT : STORE RMER1 AT $BDDAT 
BIC #°COPI,$BDDAT 
BNE 40$ 
MOV #OPI, $GDDAT 
MOV RO, $8DADR 
ADD #RMER1, $BDADR 
EMT 270 
40$: MOV #50$,$LPERR : CHANGE LOOP ON ERROR TEST 
:VERIFY DATA COMMAND ABORTS AT LOCATION 129 
a PC, SETVV :GO SET VOLUME VALID . 
BR 60$ “BRANCH TO 60$ IF NO ERROR 
BR 150$ 
jENABLE DEBUG CLOCK AND LOAD READ COMMAND 
"MOV #DMD 'MUR '!MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
MOV #0.RMER1 (RO) -LOAD RMER1 
MOV #0. RMER2 (RO) LOAD RMER2 
MOV #0. RMDA(RO) LOAD RMDA 
MOV #0. RMDC (RO) “LOAD RMDC 
MOV and C0. RMCS1(RO) :LOAD RMCS1 
:STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS) 
as MOV #4 R2 
"MOV #DMD !MUR !MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD 'MUR ‘MOC ' DBEN.RMMR1 (RO) :LOAD RMMR1 
DEC R2 
BNE 70$ 
:SET DEVICE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD!MUR' MOC! DBEN'MDF ,RMMR1(RO) ;LOAD RMMR1 


;STEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK) 
MOV #1,R2 


80$: 
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T1116 DATA COMMAND TESTS (1) ° SEQ 0204 

046254 012760 141501 000024 MOV ADMD ' MUR 'MOC ! DBEN! MDF '!DBCK,RMMR1 (RO) LOAD RMMR1 

5244 046262 012760 041501 000024 MOV ADMD! MUR! MOC! DBEN! MDF ,RMMR1(RO) :LOAD RMMRI 

5245 046270 005302 DEC R2 

2508 046272 001370 BNE 80$ 

5248 ;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 

5249 zsFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 

2520 vrs to 012702 000020 ass MOV #16. ,R2 ;MAXIMUM NUMBER OF BIT CLOCKS 

012760 045501 000024 MOV #DMD ' MUR! MOC ! DBEN! MDF 'MCLK,RMMR1 (RO) ;LOAD RMR 

5 52 046306 012760 041501 000024 MOV ADMD 'MUR' MOC 'DBEN! MDF , RMMR 1 (RO) ;LOAD RMMR1 

523535 046314 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT ; STORE RMMR | AT $BDDAT 

$254 046522 942737 157777 001142 BIC #°CEBL,$BDDAT 

2822 30 001014 BNE 90$ ;BRANCH IF EBL IS SET 

5257 046332 005302 DEC R2 

5258 046334 001361 BNE 85$ ; CONTINUE BIT CLOCKS IF COUNT NOT O 

5259 046336 012737 020000 001140 MOV #EBL ,.S$GDDAT 

5260 046344 0610037 001136 MOV RO, $BDADR 

5261 046350 062737 000024 001136 ADD #RMMR1,$BDADR 

5262 046356 104271 EMT 271 

3507 046360 000472 BR 1508 

526 z;STEP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS) 

5266 046362 90$: . 

5267 046362 012702 000002 MOV #2,R2 

2508 046: 100$: 

5269 046566 012760 141501 000024 MOV ADMD 'MUR'MOC ! DBEN! MDF 'DBCK,RMMR1 (RO) LOAD RMMR1 

5270 046374 012760 041501 000024 MOV #DMD'MUR'MOC'DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 

5271 046402 005302 DEC R2 

2556 046404 001370 BNE 100$ 

25he ;ABORT EBL SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING THE 

5275 | MAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS) 

2555 peers 012702 000020 ae MOV #16. ,R2 sMAXIMUM NUMBER OF BIT CLOCKS 
046412 012760 045501 000024 MOV ADMD ' MUR 'MOC' DBEN! MDF 'MCLK,RMMR1 (RO) :LOAD RMMRI 

5278 046420 012760 041501 000024 MOV ADMD !MUR'MOC'DBEN! MDF ,RMMR1(RO) ;:LOAD RMMRI 

sth 046426 005302 DEC R2 

5280 046430 001370 BNE 110$ : ISSUE 16 BIT CLOCKS THEN TEST 

eSae VERIFY EBL IS NOW RESET 

5283 046432 120$: 

5 Re rer, 016037 000024 001142 MOV RMMR1 (RO), SBDDAT s;STORE RMMR1 AT 2sBLDAT 

5285 046440 042737 157777 001142 BIC #“CEBL , SBDDAT 

5 ry pn eree 001411 BEQ 130$ s;BRANCH IF EBL IS RESET 

5 6450 005037 001140 CLR SGDDAT 

oSB5 046454 010037 001136 MOV RO,S$BDADR 

5 046460 062737 000024 001136 ADD #RMMR1,$BDADR 

esey peer $8 104273 EMT 273 

: 1 046470 000426 BR 150$ 

$398 VERIFY GO RESETS WITHIN 4 CLOCK CYCLES 

5 04647 130$: 

$295 046472 012702 000004 MOV #4 ,R2 F 

5296 046476 140$: 
046476 012760 141501 000024 MOV ADMD 'MUR'MOC' DBEN' MDF 'DBCK,RMMR1 (RO) :LOAD RMMR1 


7 
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5300 


as 


SECeSE 


LNW 
— 
—=© 


Fr VRAMAGVIMANVIMNVINVIVNAY? 
id Kickicxagerereraureres 
RELL 
SESECES 


NO MSW -OOOweulwr 
OOo 


FRRERR RK 


tw 
WO Oem 


NANAWAN NAIA N 


saa 
: 


GOGRAR 


ye 
FRRRRRRK RRERRRLK 
P.O ROOD 


POPUPS SSD SPUGRMYIGIVIVAIVIT VIAN 
ae 
, ate 
AM 


Sexbas ESES 


012737 


004737 
000402 
104000 
000512 


RSLSRO 


—2 
RR 
rN 


041501 


000000 
177776 
001140 
001136 


046554 


054450 


041401 
000000 


000005 


141401 
041401 
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600024 


001124 


000024 
000024 


001142 
001142 


001140 
001136 


150$: 
; VERIFY 
200$: 


Zs ENABLE 
210$: 


MOV 


Sf “MURS MOC! DBEN: MDF .RMMR1(RO) ;LOAD RMMR1 
140$ 
RMCS1(RO) , SBDDAT 
#*CGO,$BDDAT 
150$ 


SGDDAT 
RO, $BDADR 
274 


:STORE RMCS1 AT $SBDDAT 


#200$,,$LPERR : CHANGE LOOP ON ERROR ADDRESS 


SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS 


JSR 
BR 


EM 
BR 


:GO SET VOLUME VALID 


PC,SETVV 
2108 ;BRANCH TO 210$ IF NO ERROR 


250$ 


DEBUG CLOCK AND LOAD DATA COMMAND 


sMOVE EEA 
2208: 


s VERIFY 


VERIFY 


230$ 


2 


40$: 


#DMD ! MUR! MOC ! DBEN, RMMR1 (RO) 
#0 ,RMER1 (RO) ; LOAD R1 


;LOAD RMMR1 


#0 ,RMER2 (RO) 
#0 ,.RMDA(RO) sLOAD RMDA 
#0 ,RMDC (RO) ;LOAD RMDC 


#RD'GO,RMCS1(RO)- :LOAD RMCS1 
10 TEST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS) 


MOV ADMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
+ 94 on ‘MUR ! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 

BNE 220$ 

RUN AND GO IS SET 

MOV RMMR1 (RO) , $BDDAT :STORE RMMR1 AT $BDDAT 

BIC #“CRG, SBDDAT 

BNE 230$ 

MOV #RG ,SGDDAT 

MOV RO, $BDADR 

ADD 1, $BDADR 

EMT 5 

BR 250$ 

THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE ~ 

MOV #1,R2 

MOV #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD ! MUR! MOC ! DBEN,, RMMR1 (RO) ;LOAD RMMR1 

DEC R2 

BNE 240$ 

MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 


ST RARER AAA KAA REECE AREER EK 


SEQ 0205 


T116 


5350 

5351 

2228 

535 

5354 

5355 046752 

2326 

5357 

5358 

5359 046760 

5360 046766 

3a0! 046774 

5 4 046776 

53635 047002 

5364 047010 

5365 

5366 047012 

5367 

5368 

5369 047020 

5370 047024 

5371 ae oes 
0470350 
047032 

3a26 047034 

23° 

5574 

5375 047036 

5376 047036 

5377 047044 

5378 047052 

5379 047060 

5380 047066 

5381 047074 

5382 

5383 

5384 930106 
04711 

5385 047114 
047114 

5386 047122 

5387 0471 

$389 047136 

3390 047140 

ad 047144 

5 3 RAE Y: 

ee 7156 

5394 047164 

5395 047166 

5396 047170 
047170 

5397 

5398 

5399 047174 

5400 047200 

5401 047204 


042737 


012737 
023737 
00 


012737 


012702 


SHEE & 


oo 

nb ed 
WAS 
SNNNS 


—) 

ee 

ros 
vy 


004777 
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162000 


004000 
001140 
001136 
000040 


047024 


000144 
054450 
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001142 


001140 
001142 


001136 


001124 





2 BIC #ROQA!RQB! TAG, SBDDAT 
>THE FOLLOWING CODE WAS ADDED 
oa othe THE PROGRAM TO RUN WITH 


BIC #RQA'ROB!TAG'CH,SBDDAT ;HARDWARE ECO CHANGE CAUSES CC AND 
:CH TO SET AT THE SAME TIME 


2 2 STEARATE EEAEEAEEAEKCEEAAAEEAEAEEAEEAKEEKARAAAREREREERER 


MOV #CC ,$GDDAT 
CMP SGDDAT , SBDDAT 


250$: MOV #260$ ,$LPERR 


;VERIFY DATA COMMAND ABORTS 
MOV #144 ,R2 


; CHANGE LOOP ON ERROR ADDRESS 


AT COMMAND SEQUENCER LOCATIONS 144, 145 
s INITIALIZE TEST LOCATION 


260$: 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 270$ “BRANCH TO 270$ IF NO ERROR 
BR 320$ 
ZENABLE DEBUG CLOCK AND LOAD DATA COMMAND . 
"MOV #DMD 'MUR !MOC ' DBEN, RMMR1 (RO) :LOAD RMMR1 
MOV #0,RMER1(RO) ;LOAD RMER1 
MOV #0.RMER2(RO)  =LOAD RMER2 
MOV #0. RMDA(RO) *LOAD RMDA 
MOV #0. RMDC (RO) “LOAD RMDC 
MOV #RD!GO,RMCS1(RO) :LOAD RMCS1 


;WAIT FOR RUN AND GO TO SET 
MOV #200. ,WATCH 
JSR PC ,aCLOCk 


>SET WATCHDOG TIMER VALUE 
sSTART THE CLOCK 


280$: 
. MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 
BIC #*CRG,SBDDAT 
290$ 
TST WATCH 
BNE 280$ 
JSR PC ,@STOPCL sSTOP THE CLOCK 
MOV #RG,SGDDAT 
MOV RO, $BDADR 
ADD #RMMR 1, S$BDADR 
EMT 275 
BR 320$ 
290$: 


JSR PC,@STOPCL :STOP THE CLOCK 


>MOVE COMMAND SEQUENCER TO ABORT TEST (LOCATION 144 OR 145) 
MOV #6,R3 7SETUP CLOCK COUNT 
CMP #144 ,R2 


BEQ 300$ 


HOUT THE ECO TO THE CS BOARD 


SEQ 0206 


Z7RMPBO RMOS/3/2 DSKLS TST 1 
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012703 000007 


212 012760 141401 
7220 012760 041401 
005303 


rs? 
| 7 


3 
RRR 
S 


08 
5409 047232 012760 041501 


5411 
rt 947240 012703 900001 
54135 067244 

0472464 012760 141501 
5414 047252 012760 041501 
5415 047260 005303 
5416 047262 001370 
5417 
5418 
5419 
5420 047264 012702 900020 
5421 047270 

047270 612760 045501 
5422 047276 012760 041501 
54235 047 016037 000024 
5424 047312 042737 157777 
a0$2 047320 001013 
5427 047322 005302 
5428 047324 001361 

047326 012737 


020000 
5430 047334 010037 001136 
000024 


042 
5433 047350 022702 000144 
001003 


5434 047354 
5435 047356 012702 000145 
hy 047362 000620 
5438 047364 012737: 047374 
5439 
440 
5441 047372 005002 
544 og Loy 
5443 047374 004737 054450 

047400 000402 

402 000 

5444 047404 000570 
5447 047406 
5448 047406 012760 041401 
5449 047414 012760 000000 
5450 toa 3 ATL 000000 
5451 0474 010260 000006 
ty 047434 0127 000000 
5453 047442 012760 000071 


M 16 
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000024 


006024 
000024 


001124 





een MOV #7 .R3 . 
"MOV #DMD !MUR ' MOC ! DBEN! DBCK. RMMR1 (RO) :LOAD RMMR1 
Mov #DMD !MUR!MOC ! DBEN. RMMR 7 (RO) ZLOAD RMMRI 
BNE 3008 


:SET DRIVE FAULT TO FORCE ABORT CONDITION 
MCV #DMD !MUR'MOC'DBEN' MDF .RMMR1(RO) :LOAD RMMR1 


: CLOCK SEQUENCER THROUGH ITS TEST FOR ABORT (1 CLOCK) 
305$: > 


MOV ADMD ! MUR! MOC ! DBEN! MDF ! DBCK,RMMR1 (RO) :LOAD RMMR1 

mov SORD ‘UR “FOC: DBEN: MDF . RPI (RO) ;LOAD RMMR1 

BNE 305$ : ISSUE 2 CLOCKS * 
;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
:FORCE BIT CLOCKS AND VERIFY THAT EBL-SETS WITHIN 16 BIT CLOCKS 
isin’ MOV 16.,R2 :MAXIMUM NUMBER OF BIT CLOCKS 

MOV #DMD ! MUR 'MOC '! DBEN! MDF 'MCLK,RMMR1 (RO) z:LOAD RMMR1 

MOV #DMD !MUR'MOC 'DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 

MOV RMMR1 (RO), $BDDAT : STORE RMMR1 AT $BDDAT 

BIC #*CEBL .$BDDAT 

BNE 310$ BRANCH IF EBL IS SET 

DEC R2 

06$ :CONTINUE BIT CLOCKS. IF COUNT NOT 0 

MOV #EBL ,. SGDDAT 

MOV RO, $8DADR 

ADD 1,$BDADR 

EMT 1 


27 
310$: CMP #144,R2 
BNE 320$ 
MOV #145,R2 
260$ 


BR 
320$: MOV #330$,$LPERR : CHANGE LOOP ON ERROR ADDRESS 
= VERIFY HEAD TAG DURING DATA COMMAND 
on R2 : INITIALIZE TRACK ADDRESS = 0 

—_ PC, SETVV :GO SET VOLUME VALID 

BR 340$ “BRANCH TO 340$ IF NO ERROR 

BR 400$ 
ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 

MOV #DMD 'MUR' MOC! DBEN, RMR (RO) :LOAD RMMR1 

MOV #0, RMER1 (RO) -LOAD RMER1 

MOV #O.RMER2(RO) §:LOAD RMER2 

MOV R2-RMDA(RO) LOAD RMDA 

MOV #0. RMDC (RO) “LOAD RMDC 

MOV #RD'GO,RMCS1(RO) =LOAD RMCS1 


SEQ 0207 





RMPBO RMOS/3/2 DSKLS TST 1 


16 
5454 
5455 

5456 047450 


7456 
5457 047462 


462 
5458 047470 


54 
5471 047542 
5472 047546 
047546 
5473 047554 
9474 047562 
5475 047564 
5476 


5477 
5478 047566 
hs 047574 


s 047602 
4 


£45 ? 


a 


DATA COMMAND TESTS (7) 


000310 
132054 
000024 
137777 
001534 


132026 
040000 
001136 
000024 


131776 
000021 


141401 
041401 


N 16 
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000024 
000024 


000024 
000024 


000024 
000024 


001742 


;WAIT thy — GO TO SET 


JSR 


350$: 


360$: 


JSR 


#200. ,WATCH zSE7 WATCHDOG TIMER VALUE 
PC ,aCLOCk :START THE CLOCK 
RMMR1 (RO) , SBPDAT :STORE RMMR1 AT SBDDAT 

~ #*°CRG, SRDDAT 

360$ 
WATCH 

50$ 
PC ,a@STOPCL :STOP THE CLOCK 
#RG, SGDDAT 

- SBDADR 
400$ 
PC,@STOPCL :STOP THE CLOCK 


: STEP COMMAND SEQUENCER TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS) 
370$: ei 


3 


MOV #DMD ! MUR !MOC ! DBEN! DBCK .RMMR1 (RO) :LOAD RMMR1 
MOV #DMD i MUR MOC ! DBEN. ROR (RO) :LOAD RMMR1 
BNE 370$ 
:DROP AND RAISE ON CYLINDER TO RESET ON LATCH 
MOV #DMD 'MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #DMD 'MUR ' MOC !DBEN, RMMR1 (RO) :LOAD RMMR1 
FT EAE KKEREKKEKEKEREREREREKEKREKEKEEREKEEEKEEEEKEKEAEKEEKEEKEKEEKEKEKEKKEKE 
MOV #450$,R3 : INITIALIZE TABLE POINTER 
:HARDWARE ECO CHANGE TO THE PLA ON THE 
“CS BOARD. 
MOV #4 R3 “CLOCK THE SEQUENCER THRU THE FIRST 
:4 COMMAND SEQUENCES TO ALLOW THE PROGRAM 
rae TO RUN WITH OR WITHOUT THE ECO. 
"MOV #DMD ! DBEN! MUR! MOC ! DBCK .RMMR1 (RO) :LOAD RMMR1 
MOV #DMD ! DBEN! MUR! MOC .RMMR1 (RO) i LOAD RMMR 1 
DEC R3 : DONE, 4 CLOCKS ? 


372$ 
#475$ ,R3 S INITIALIZE NEW TABLE POINTER 


CSE AEE AKER EREEEEEKEKEEKEKEEKEKEKKAKEEEEKEEKKEEEEKEEEEKEEKEK 


eveciry TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2 





RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 
#RQA!RQB! TST, SBDDAT 
(R3) , SGDDAT 


R2,R4 ;GENERATE EXPECTED TAG BUS 


R4 

R4 , $GDDAT 
SGDDAT , $BDDAT 
390$ 


SEQ 0208 


ee eee ee ee eee ———— = - —-— a a ee 


B 1 
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CZRMPBO RMOS/3/2 DSKLS TST 1 
| T7116 DATA COMMAND TESTS (1) SEQ 9209 
| 5507 047672 012760 141401 000024 MOV #DMD ! MUR '!MOC ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR1 
| 3308 047700 012760 041401 000024 MOV —- ADMD ! MUR! MOC ! DBEN,, RMMR 1 (RO) ;LOAD RMMRT 
| 5510 :ADVANCE TO NEXT TABLE ENTRY 
| 5511 047706 062703 000002 R 
| 5512 047712 005713 TST (R3) 
| 5513 047714 100401 BMI 380$ 
| 9514 047716 000745 BR 375$ 
5516 -SHIFT TO NEXT TRACK ADDRESS-EXIT LOOP IF DONE 
5517 047720 380$: 
5518 047720 062702 900400 #TA1,R2 :ADVANCE TRACK ADDRESS 
5519 047724 032737 010000 001334 BIT #TA16,LSTRK “1S IT RMOS ? 
$520 047732 001403 BEQ 385$ “NO !! 
5521 047734 020237 001334 CMP R2,LSTRK “DONE WITH TRACKS ON RMOS ? 
5522 047740 101615 BLOS  330$ :NO !! 
5523 047742 385$: 
5524 047742 020237 001334 CMP R2,LSTRK :DONE WITH TRACKS ON RMO2/3 ? 
5525 047746 101007 BH] 400$ :YES, EXIT 
5526 047750 000611 BR 330$ 
5528 :ERROR ON TAG BUS DURING HEAD SEQUENCE 
5529 047752 390$: 
5530 047752 010037 001136 MOV RO, $BDADR 
5531 047756 062737 000040 001136 ADD #RMMR2 , S$BDADR 
5532 047764 104276 EMT 276 
5534 047766 000440 400$: BR 500$ : JUMP OVER TABLE 
536 : TABLE OF TAG BUS DURING HEAD SEQUENCE 
5537 047770 450$: 
538 047770 00 .WORD (CH 
5539 047772 002000 “WORD CH 
5540 047774 022000 “WORD  CH!TAG 
5541 047776 022000 “WORD  CH!TAG 
5542 050000 475$: :START TABLE HERE FOR HARDWARE ECO CHANGE 
5543 050000 022000 .WORD  CH!TAG 
5544 050002 022 -WORD  CH!TAG 
5545 050004 022000 -WORD  CHITAG | 
5546 05 022000 “WORD  CH!TAG 
3547 050010 177777 .WORD  =1 :END TABLE HERE FOR HARDWARE ECO CHANGE 
5549 : .WORD (CH 
5550 050012 00200 -WORD (CH 
5551 050014 001777 “WORD 1777 
5552 050016 001777 “WORD 1777 
5553 050020 001777 “WORD 1777 
5554 050022 001777 -WORD 1777 
5 001777 “WORD 1777 


050042 ‘ 
5563 050044 001777 «WORD 1777 


LS Se ESE ES BREE FE EF ee ee ee eee ke 





™116 


5565 050050 
53566 050052 


5572 
5573 050066 


5577 


5 
5581 050116 
050122 
050124 
5582 050126 
5585 


5584 
5585 050130 


5591 050166 
5592 
5593 

5594 050174 

202 

5595 050206 

050206 

5596 050214 


5606 050262 


177777 


CZRMPBO RMO5/3/2 DSKLS TST 1 
DATA COMMAND TESTS (1) 


5564 050046 


001100 


000310 
131330 
000024 
137777 
001534 
131302 
04 


0000 
001136 
000024 


Rm 
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001226 


001140 
001136 





;WAIT FOR RUN AND GO TO SET 
MOV 


20$: 


30$: 


WORD 1777 
WORD 1777 
WORD 1777 
D 1777 
WORD 1777 
WORD 1777 
WORD 1777 
WORD 1777 
WORD =1 :END OF TABLE 
500$: :END OF TEST 
MeARBSBSSABRABRARSASASAASAASAASAASRSASASAASRSRSR SAREE SRR SRE RRR ASP SRR RSE RARER ESAS ESAS GS 
“STEST 117 DATA COMMAND TESTS (2) 
; SRA EARAEEEE AEA AAR ERE TERRE REE KERTH EEEHEEE 
TST117: 
SCOPE :SCOPE CALL 
MOV #STACK,SP ‘LOAD THE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 R1 = POINTER TO DEVICE 
MOV #117, $TESTN ; SET TEST NUMBER IN APT MAIL BOX 
:VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT RESET 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 10$ :BRANCH TO 10$ IF NO ERROR 
BR 60$ 
i ENABLE DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDFR SEQUENCE 
"MOV #DMD MUR !MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
MOV #0,RMER1 (RO) :LOAD RMER1 
MOV #0,,RMER2 (RO) :LOAD RMERZ 
MOV »RMDA (RO) * LOAD’ RMDA 
MOV #0, RMDC (RO) :LOAD RMDC 
MOV #RD!GO,RMCS1(RO) :LOAD RMCS1 


#200. ,WATCH ;SET WATCHDOG TIMER VALUE 
JSR PC,aCLOCK ;START THE CLOCK 
MOV RMMR1 (RO) , SBDDAT :STORE RMMR1 AT SBDDAT 
BIC #*CRG,$8DDAT 
BNE 30$ 
TST WATCH 


0$ 
JSR PC, aSTOPCL 
MOV #RG, $GDDAT 
MOV RO, $BDADR 
ADD aRAOR ,$BDADR 


BR 60$ 


:STOP THE CLOCK 


SS OO Oe Oe I me tm me 


SEQ 0210 


oa 


1117 


050262 
7 


5609 050266 
5610 9050272 

050272 
5611 050300 
5612 0503506 
5613 050310 
5614 050312 


5621 050352 

5622 

5623 

5624 050360 

5625 050360 
050364 
050366 

5626 050370 

5627 

5628 

5629 050372 

5620 050372 

5631 050400 

5632 050406 

5633 050414 

5634 050422 

5635 050430 

5636 

5637 

5638 050436 
050444 

5639 050450 
050450 

5640 050456 


5650 050524 
050524 

5652 

56535 050530 

5654 050534 

5655 050542 


004777 


012702 


012760 
012737 
004777 
016037 


012702 


012760 
012760 


CZ7RMPBO RMO5S/3/2 DSKLS TST 
DATA COMMAND TESTS (2) 


131252 


000023 
141401 
041401 
000014 
157777 
020000 
001136 
000014 


050360 


054450 


041401 
000000 


000024 
137777 
001534 
131040 
040000 


001136 
000024 


131010 


000021 


141401 
041401 


BD 7 
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000024 
000024 


001142 
001142 
001140 
001136 
001124 


001140 
001136 


000024 
000024 


S0$: 
; VERIFY 
60$: 


s ENABLE 
70$: 


;WAIT FOR RUN & GO T 
MOV 


80$: 


90$: 


JSR PC ,@STOPCL ;STOP THE CLOCK 


:STEP COMMAND SEQUENCER AND VERIFY OPI SETS (19 CLOCKS) 
408 MOV #19.,R2 


MOV #DMD ! MUR! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
MOV habits aaa (RO) ;LOAD RMMR1 


40$ 
MOV RMER1 (RO) , SBDDAT 
BIC #*COPI , $BDDAT 


;STORE RMER1 AT $BDDAT 


BNE 50$ ;BRANCH IF OPI SET 
MOV #OPE , SGDDAT 

MOV RO, $BDADR 

ADD #RMER1, SBDADR 

EMT 77 


MOV #60$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 
DATA COMMAND ABORTS DURING SEEK WAIT LOOP 

JSR PC,SETVV :GO SET VOLUME VALID 

BR 70$ 


BRANCH TO 70$ IF NO FRROR 
BR «1408 
DEBUG CLOCK AND LOAD DATA COMMAND 
MOV #DMD ! MUR! MOC ! DBEN, RMMR1 ee :LOAD RMMR1 


MOV #0,RMER1 (RO) ;LOAD RMER1 
MOV #0 ,RMER2 (RO) ;LOAD RMER2 
MOV #0,,RMDC (RO) :LOAD RMDC 
MOV -RMDA(RO) bs RMDA 
MOV #RD!GO,RMCS1(RO)- ;LOAD RMCS1 
O SET 

#200. WATCH :SET WATCHDOG TIMER VALUE 

JSR PC ,aCLOCK sSTART THE CLOCK 


ae :STORE RMMR1 AT SBDDAT 


MOV 
BIC #*CRG 
BNE $ 


:STOP THE CLOCK 


MOV #RG,SGDDA 
RO, SBDADR 
ADD 1,$BDADR 


140$ 


JSR PC ,@STOPCL :STOP THE CLOCK 


SSter er tag mad te TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 
MOV 


100$: 





°¢@ 


;LOAD RMMR) 


MOV #DMD ! MUR! MOC ! DBEN! DBCK,,RMMR1 (RO) 
;LOAD RMMR1 


MOV #DMD ! MUR! MOC ! DBEN,RMMR1 (RO) 


SO RR Re ee ee ee 


SEQ 021) 


3 
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1117 ‘DATA COMMAND TESTS (2) SEC 0212 
5656 050550 005302 DEC R2 
| 5657 050552 001370 BNE 100$ 
—  -§659 :DROP ON CYLINDER TO RESET LATCH 
| 53660 050554 012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
| $662 :MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS) 
| 5663 050562 012702 000037 MOV #31. ,R2 
5664 050566 110$: 
050566 012760 141001 900024 MOV #DMD!MUR!DBEN!DBCK,RMMR1(RO) LOAD _RMMRT 
| 5665 050574 012760 041001 000024 MOV #DMD !MUR ! DBEN., REP (RO) :LOAD RMMR1 
| 5667 050604 001370 BNE 110$ 
5669 :STEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES 
5670 050606 012702 000006 MOV ay 
5671 050612 1208: 
050612 012760 141001 000024 MOV #DMD!MUR!DBEN!DBCK.RMMR1(RO) = LOAD RMMRI 
5672 050620 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
5673 050626 005302 DEC R2 
567% 050630 001370 BNE 120$ 
5676 , :SET SEEK INCOMPLETE ERROR TO CAUSE ABORT 
3677 050632 012760 041201 000024 MOV #DMD'MUR'DBEN!MSER,RMMR1(RO) =; LOAD RMMRI 
:CLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
5680 050640 012702 000002 #2,R2 
5681 050644 1308: 
050644 012760 141201 000024 #DMD '!MUR ' DBEN!MSER! DBCK ,RMMR1 (RO) :LOAD RMMR1 
5682 050652 012760 041201 000024 MOV #DMD'MUR'DBEN'MSER,RMMR1(RO) =: LOAD RMMRI 
5683 050660 005302 DEC R2 
5684 050662 001370 BNE 130$ 
;ABORT EBL SHOULD NOW BE ACTIVE ~ USE THE MAINTENANCE REGISTER TO 
“FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
5688 050664 012702 000020 V ¥ ;MAXIMUM NUMBER OF BIT CLOCKS 
5689 050670 135$: 
050670 012760 045501 000024 MOV #DMD!MUR'MOC!DBEN!MDF!MCLK,RMMR1(RO) § :LOAD RMMARI 
5690 050676 012760 041501 000024 MOV #OMD ‘MUR ' MOC! DBEN'MDF ,RMMR1(RO) :LOAD RMMR1 
5691 050704 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT :STORE RMMR1 AT SBDDAT 
5692 050712 042737 157777 001142 BIC #°CEBL . SBDDAT 
3693 050720 001013 BNE 140$ 
5695 050722 005302 DEC 
5696 050724 001361 BNE 135$ :CONTINUE BIT CLOCKS IF COUNT NOT 0 
5697 050726 012737 020000 001140 MOV #EBL ,SGDDAT 
5698 050734 010037 001136 MOV RO, $BDADR 
5699 050740 062737 000024 001136 ADD #RMMR 1, SBDADR 
5700 050746 104300 EMT 
5701 050750 012737 050756 001124 140$: MOV #150$,$LPERR : CHANGE LOOP ON ERROR ADDRESS 
5703 :VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH 
5704 “DOESNT RESET 
5705 050756 150$: 
5706 050756 004737 054450 JSR PC, SETVV :GO SET VOLUME VALID 
050762 000402 BR 160$ “BRANCH TO 160% IF NO ERROR 
0764 104000 EMT 


-——_—_— 





NT ee Se ee SE eke ee ee 


aa 


ZR 
11 


pti 


5707 050766 
57C8 
5709 
5710 050770 
5711 950770 


5712 050776 
5713 arias 


2 
5714 051014 
5715 
5716 
5717 051016 
5721 051040 
5722 


5725 
5724 051046 
051054 
5725 051060 
1060 


EYSNAOR 


Wyte as 


AOS SL 
MONS fLO 


6 
5747 051164 
5748 051172 
5749 


5751 051200 
5752 051204 

051204 
57535 051212 
5754 051220 
5755 051222 
5756 


000536 


012760 


012760 
012737 
004777 
016037 


004777 


012702 
012760 
012760 


005302 
001370 


012760 
012760 


012702 
012760 


MPBO RMOS/3/2 DSKLS TST 1 
7 DATA COMMAND TESTS (2) 





F 1 
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000034 
000006 


000024 


000000 


001534 


001140 
001136 


000024 
000024 


000024 
000024 


000024 
000024 


BR 220$ 
;LOAD TRACK, SECTOR, AND CYLINDER ADDRESSES 
"MOV #0,.RMDC (RO) :LOAD RMDC 
MOV #0..RMDA(RO) “LOAD RMDA 
JSR PC. SET ‘60 SET OFFSET MODE 
BR 170$ “BRANCH TO 170% IF NO ERROR 
BR 220$ 
i ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
"MOV #DMD MUR MOC 'DBEN, RMMR1 (RO) “LOAL RMMR1 
MOV #0,RMER1 (RO) :LOAD RMER1 
MOV #0..RMER2(RO) “LOAD RMER2 
MOV #RD'GO,RMCS1(RO)- :LOAD RMCS1 
:WAIT FOR RUN AND GO TO SET 
MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 
ain JSR PC, acLOCk “START THE CLOCK 
"MOV RMMR1 (RO), SBDDAT :STORE RMMR1 AT $BDDAT 
BIC #*CRG, SBDDAT 
BNE 190$ 
TST WATCH 
BNE 180$ 
JSR PC, aSTOPCL :STOP THE CLOCK 
MOV #RG, $GDD 
MOV RO, $GDDAT 
ADD 1, 
EMT 5 
BR 220$ 
190$: 
JSR PC, aSTOPCL *STOP THE CLOCK 


sSTEP en SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 


200$: 


MOV ADMD ! MUR! MOC! DBEN'DBCK, — ;LOAD RMMRI 
MOV #DMD ' MUR ' MOC ' DBEN,.RMMR1 (RO) ;LOAD RMMAR1 

DEC R2 

BNE 200$ 


DROP ON A Sprig TO RESET LATCH, SET ON CYLINDER TO PASS TEST 


;AT LOCATION 
MOV 


;LOAD RMMR1 


ADMD ! MUR ! DBEN,,RMMR1 (RO) 
;LOAD RMMR1 


MOV ADMD ! MUR! DBEN!MOC ,RMMR1 (RO) 


MOVE — TO SET OPI AND EBL (39 CLOCKS) 


210$: 


MOV ADMD !MUR! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR? 
MOV ADMD !MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 

DEC R2 

BNE 210$ 


G 1 
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A COMMAND TESTS (2) SEQ 0214 


5757 
5758 051224 


016037 600014 001142 0 RMER1(RO), SEDDAT :STORE RMER1 AT $BDDAT 
5759 051232 042737. 157777 001142 BIC #*COPI, $BDDAT 
| 760 051240 001011 BNE 22 
«761 051242 012737 020000 001140 MOV #OPI ,$GDDAT 
«5762 051250 010037 001136 MOV RO, $8DADR 
———-- §763 051254 062737 000014 001136 ADD #RMER1, $BDADR 
| 5764 051262 104277 EMT 
| 5765 051264 912737 051272 001124 220$: MOV #230$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
} 
| 5767 -VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP 
| 5769 051272 2308: 
| 051272 004737 054450 JSR PC, SETVV :GO SET VOLUME VALID 
051276 000403 BR 240$ “BRANCH TO 240$ IF NO ERROR 
051300 104000 EMT 
5770 051302 000137 051712 JMP 310$ 
5772 :LOAD SECTOR, TRACK AND CYLINDER ADDRESS 
5773 051306 5408: 
5774 051306 012760 000000 000006 MoV #0,.RMDA(RO) :LOAD RMDA 
5775 051314 012760 000000 000034 MOV #0 RMDC (RO) “LGAD RMDC 
5776 051322 004737 054572 JSR PC’ SETOM “GO SET OFFSET MODE 
051326 000402 BR 245$ “BRANCH TO 245% IF NO ERROR 
051330 104000 EMT 
5777 051332 000567 BR 310$ 
5779 :ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
5780 051334 545$: 
051334 012760 041401 000024 MOV #DMD ' MUR! MOC | DBEN,RMMR1 (RO) =LOAD RMMR1 
5781 051342 012760 000000 000014 MOV #O,RMER1(RO).  :LOAD RMERT 
5782 051350 012760 000000 000042 MOV #O|RMER2(RO) = LOAD RMER2 
5785 051356 012760 000071 00000 MOV #RD!GO,RMCS1(RO) >LOAD RMCS1 
5785 :WAIT FOR RUN AND GO TO SET 
5786 051364 012737 000310 001534 MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 
051372 004777 130140 JSR PC, aCLOCK “START THE CLOCK 
5787 051376 2508: 
051376 016037 000024 001142 MOV RMMR1 (RO), SEDDAT :STORE RMMR1 AT $BDDAT 
5788 051404 042737 137777 001142 BIC #°CRG, $BDDAT 
5789 051412 001017 BNE 260$ 
5790 051414 005737 001534 TST WATCH 
5791 051420 001366 BNE 250$ 
792 051422 777, 130112 JSR PC, aSTOPCL -STOP THE CLOCK 
5793 051426 012737 040000 001140 MOV #RG, $SGDDAT 
5794 051434 010037 001136 MOV RO, $BDADR 
5795 051440 062737 000024 001136 ADD #RMMR 1, SBDADR 
5796 051446 104275 EMT 275 
5797 051450 000520 BR 310$ 
5798 051452 2608: 
wis 051452 004777 130062 JSR PC aSTOPCL -STOP THE CLOCK 
5800 :STEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 
5801 051456 012702 000021 #17. .R2 
5802 051462 270$: 
051462 012760 141401 000024 MOV #DMD !MUR! MOC ! DBEN! DBCK, RMMR1 (RO) : 
5803 051470 012760 041401 000024 MOV #DMD MUR‘ MOC ' DBEN,RMMRi (RO) :LOAD RMMRI 





: VERIFY td I$. 37 


SO re em em ee ee ee 


ae re ee ee 


- 


cr 
rT 
i 


i7 


| RMO5/3/2 DSKLS TST 1 


DATA COMMAND TESTS (2) 


5804 051476 


3805 
> 


9 
3820 
5821 
5822 


5825 
5824 


29 
5830 
5831 
5832 
5835 
5834 


5845 
584 

5845 
5846 


* 


847 
5848 


051500 


051542 


051550 


051572 
051574 


051602 


051632 
051640 
051646 
051654 
051662 


051664 


5849 051666 
5850 051670 


5851 
5852 
5853 


5854 
5855 
5856 


051676 
051702 
051710 


051712 


005302 
001370 


001370 


012760 


012702 
012760 
012760 


005502 
001370 


012760 


012702 
012760 


012702 
012760 


104271 
012737 


041001 
041401 


000045 
141401 
041401 
041001 
000007 
141001 
041001 
041101 
000002 


141101 
041101 


000020 
045501 


157777 


020000 


001136 
000024 


051720 


H 1 
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000024 
000024 


000024 
000024 


000024 


000024 
000024 


000024 


000024 
000024 


001142 


001140 
001136 


001124 





DEC R2 
BNE 270% 


;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 


“AT LOCATION 166 
MOV #DMD !MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #DMD | MUR! MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 


:MOVE SEQUENCER TO_LOCATION 174 (37 CLOCKS) 
o80$ MOV #37.,R2 


MOV ADMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
a gata mi (RO) ;LOAD RMMRI 
BNE 280$ 


;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET 
MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


;STEP SEQUENCER THROUGH OFFSET WAIT LOOP TWICE (7 CLOCKS) 
290% MOV #7.,R2 


MOV ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMRI 
MOV ADMD! MUR! DBEN,RMMR1(RO) ;LOAD RMMRI 
DEC R2 
BNE 290$ 
;SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD ! MUR ! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMRI 


;STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
sic MOV #2,R2 


MOV ADMD ! MUR ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMRI 
“95 eo »RMMR1 CRO) ;LOAD RMMR1 
BNE 300$ 


;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
MOV MUM NUMBER OF BIT CLOCKS 


305$: 
MOV #DMD !MUR! MOC! DBEN! MDF !MCLK,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD! MUR!MOC!DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 
BIC #*CEBL , SBDDAT 
BNE 310$ 
DEC R2 
BNE 305$ ;CONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL , SGDDAT 
MOV RO, SBDADR 
ADD #RMMR1 , SBDADR 
EMT 271 
310$: MOV 4#320$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


Se ee 


mm 
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Ti17 A COMMAND TESTS (2) SEQ 02164 
rte : VERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LCOP AT LOCATION 179 
5859 051720 3208: 

051720 004737 054450 JSR PC, SETVV :GO SET VOLUME VALID 

051724 000403 BR 330$ “BRANCH 10 330$ IF NO ERROR 

051726 104000 EMT 
5860 051730 000137 052356 JMP 420$ 
5862 -ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
5863 051734 330$: 
$864 051734 012760 041401 000024 MOV #DMD ! MUR !MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
5865 051742 012760 000000 000014 MOV #0,RMER1(RO) :LOAD RMER1 
5866 051750 012760 000000 000042 MOV #0,RMER2(RO) “LOAD RMER2 
5867 051756 012760 000000 000006 MOV #0,RMDA(RO) *LOAD RMDA 
5868 051764 012760 000000 000034 MOV #0,RMDC (RO) “LOAD RMDC 
3869 051772 012760 000071 000000 MOV #RD!GO,RMCS1(RO) sLOAD RMCS1 
5871 :WAIT FOR RUN AND GO TO SET 
5872 052000 012737 000310 001534 MOV #200.,WATCH :SET WATCHDOG TIMER VALUE 

652006 004777 127524 JSR PC, aCLOCk “START THE CLOCK 
5873 052012 340$: 

052012 016037 000024 001142 MOV RMMR1(RO), SBDDAT :STORE RMMR1 AT $BDDAT 
5874 052020 042737 137777 001742 BIC #*CRG,$BDDAT 
5875 052026 001017 BNE 350$ 
5876 052030 005737 001534 TST WATCH 
5877 052034 001366 BNE 40$ 
5878 052036 004777 127476 JSR PC, aSTOPCL :STOP THE CLOCK 
5879 052042 012737 040000 001140 MOV #RG.SGDDAT 
5880 052050 010037 001136 MOV RO, $BDAD 
5881 052054 062737 000024 001136 ADD #RMMR1, SBDADR 
5882 052062 104275 EMT 275 
5883 052064 000534 BR 420$ 
5884 052066 350$: 
ene 952066 004777 127446 JSR PC, aSTOPCL :STOP THE CLOCK 
5886 :STEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 

5887 052072 012702 000021 MOV #17. ,R2 
5888 052076 360$: 

052076 012766 141401 000024 MOV #DMD ' MUR! MOC ! DBEN! DBCK,,RMMR1 (RO) =LOAD RMMR1 
5889 052104 012760 041401 000024 MOV #DMD | AUR! MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
5890 052112 005302 DEC R2 
5891 052114 001370 BNE 360$ 
5893 =DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
5894 “AT LOCATION 166 
3895 052116 012766 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
5897 :MOVE SEQUENCER TO SECTOR WAIT (34 CLOCKS) 

5898 052124 012702 000042 MOV #34. ,R2 
5899 052130 370$: 

052130 012760 141401 000024 MOV #DMD ! MUR! MOC ! DBEN! DBCK, RMMR1 (RO) =LOAD RMMR1 
5900 052136 012760 041401 000024 MOV #DMD | MUR! MOC | DBEN, RMMR1 (RC) :LOAD RMMR1 
5901 052144 005302 DEC R2 
3902 052146 001370 BNE 370% 

5904 :STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED 
5905 “DURING THE LOOP (6 CLOCKS) 





SO A Ee OER ee = ee tee ee tet ee re ee Se ee 


5906 052150 
5907 pest ee 


591 234 

5919 052236 

5920 

5921 

5922 052240 
052240 

5925 

5924 

5925 052246 

5926 052252 
052252 

5927 052260 

5928 052266 

5929 052270 

5930 

5931 

5932 

5933 052272 

5934 052276 
052276 

5935 052304 

5936 


5940 052526 
5941 
5942 052330 


5947 052554 
5948 
5949 052356 
5950 
5951 


052356 


012702 
012760 


012760 


012702 
012760 


012702 
012760 
012760 


016037 
042737 
001013 
005302 
001361 
012737 
010037 
062737 
104271 


CZRMPBO RMOS/3/2 DSKLS TST 1 
17 DATA COMMAND TESTS (2) 


000006 
141401 
041401 


000024 
173777 


004000 
Ae 


041501 


000002 


141501 
041501 


000020 


045501 
041501 


000024 
157777 


000024 


001100 
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001142 


001140 
001136 


000024 


000024 
000024 


000024 
000024 


0011 
0071 


*~& 
MUM 


001140 
001136 


3808 MOV #6. ,R2 
MOV poe Pfs oF eo eh a et RMMR 1 (RO) ;LOAD RMMR1 
MOV ADMD !MUR! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
BIC #*CESRC,$BDDAT 
BEQ 390$ 
DEC Re 
BNE 380$ 
BR 400$ 
390$: MOV HESRC ,SGDDAT 


MOV RO, $BDADR 
ADD ee 


BR 420$ 
ial ae FAULT TO CAUSE ABORT CONDITION 

MOV ADMD! MUR! MOC! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 
>STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
410$: 6 Saat 


MOV #DMD 'MUR!MOC!DBEN!MDF !DBCK,RMMR1(RO) = LOAD RMMRT 
MOV #DMD !MUR | MOC ! DBEN!MDF ROR (RO) :LOAD RMMR1 
BNE 410$ 
: ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
“FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
sian MOV oR :MAXIMUM NUMBER OF BIT CLOCKS 
"MOV #DMD'MUR'MOC'!DBEN!MDF !MCLK.RMMR1(RO) = LOAD RMMRI 
MOV #DMD ' MUR ‘MOC! DBEN!MDF ,.RMMR1(RO) :LOAD RMMRI 
: VERIFY EBL IS SET 
MOV RMMR1 (RO). $BDDAT : STORE RMMR1 AT SBDDAT 
BIC #*CEBL , SBDDAT 
BNE 420$ 
DEC 
BNE 415$ =CONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL .SGDDAT 
MOV 0, $BDADR 
ADD #RMMR1, SBDADR 
EMT 
420$: :END OF TEST 


MOsSeeSeAASASAA£A LA £ 22 2B RSRRESASSASSRRRSRAASRASARRRARR RRA RASA RARAAAR AS 


“RTEST 120 DATA COMMAND TESTS (3) 
SISOS III ISOOIDOIDOIOI ISOM IDD EO nitions 
TST120: 

— ;SCOPE CALL 

MOV ASTACK, SP ;LOAD THE STACK POINTER 


reenter eeeeneeeennme ater eee 


CZ7RMPBO wig DSKLS TST 
A COMMAND TESTS (3) 


T7120 


052366 
0523572 


052376 


052404 


052450 


052456 


052462 
2 


3 
052470 
052474 


05 
052510 


5 
86 052514 


052546 


052552 


013700 
013701 
012737 


012737 
013737 
112737 


012737 
012737 


004737 


112737 


004737 
000137 


013760 
013760 


012760 
012760 
012760 


001276 
001466 
000120 


001466 
001334 
000035 
000200 
104312 


052500 


000000 


052500 
053564 


054450 


053402 


053402 
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MOV 
MOV 
001226 MOV 


$BASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 ;R1_ = POINTER TO DEVICE 
#120,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


;VERIFY THE TAG BUS DURING DATA COMMAND 
:FIRST PART USES OFFSET FORWARD 


;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
MOV #822. ,RMDCO ;LAST 


001446 CYLINDER 

001420 MOV LSTRK,RMDAO ;SETUP LAST TRACK AND 
001420 - MOVB #29. ,RMDAO :LAST SECTOR 

001444 MOV #OFD ,RMOFO ;FORWARD OFFSET 
001412 MOV ARD!GO,RMCS10 ;READ DATA 

001414 MOV #~256. ,RMWCO ;WORD COUNT 

001416 MOV ABUFFER,RMBAO ;BUFFER ADDRESS 


sEXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC,10$ 


fete PART USES OFFSET REVERSE 


001444 


D be ate Big IN REGISTER OUTPUT BUFFER 


#0 ,,RMOF 0 sREVERSE OFFSET 


ve ae ae TAG BUS USING SUBROUTINE 


JMP 


PC 
300$ 


< SKEKKKKEKAEKKEEREAEAERAKAEEEKEERAEKAAREAKAEEEKAEEAEEREEERKKEKKEKEEEKEKEEEEEE 


> SUBROUTINE USED DURING TEST 


FL RARER EEEEEEEKEAREAAEAERAEEEREKEEEEREREREEEEEEKEEK 


10$: 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 20$ “BRANCH TO 20$ IF NO ERROR 
JMP 160$ 
LOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET 
000006 "MOV RMDAO.RMDA(RO) ;LOAD RMDA 
000034 MOV RMDCO.RMDC(RO) =LOAD RMDC 
000032 MOV RMOFO.RMOF (RO) =LOAD RMOF 
JSR PC, SETOM *GO SET OFFSET MODE 
BR 30$ “BRANCH TO 30$ If NO ERROR 
JMP 160$ 
LOAD BUFFER ADDRESS AND WORD COUNT 
000002 "MOV RMWCO,RMWC(RO) ;LOAD RMWC 
000004 MOV RMBAO.RMBA(RO) :LOAD RMBA 
;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
000024 MOV #DMD '! MUR 'MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
000014 MOV #O,RMER1(RO).  ;LOAD RMER1 
000042 MOV #O-RMER2(RO) = LOAD RMER2 


OS EE RR ee ee ee --- = 


SEQ 0218 


“ma 
— Py 


eli - — 


4 
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20 DATA COMMAND TESTS (3) SEQ 07219 
ont 052610 013760 001412 000000 MOV RMCS10,RMCS1(RO) ;LOAD RMCS1 

6004 sWAIT FOR RUN AND GO TO SET 

6005 052616 012737 000310 001534 MOV #200. ,WATCH 3SET WATCHDOG TIMER VALUE 

052624 004777 126706 JSR PC, acLOCK ;START THE CLOCK 
6006 052630 40$: 

052630 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
6007 052636 042737 137777 001142 BIC #*CRG,$BDDAT 
6008 052644 001020 BNE 50$ 

52646 005737 001534 TST WATCH 
6010 052652 001366 BNE 40$ 
6011 052654 004777 126660 JSR PC,@STOPCL ;STOP THE CLOCK 
6012 052660 012737 040000 001140 MOV #RG ,SGDDAT 
6013 052666 010037 001136 MOV RO, $BDADR 
6014 052672 062737 000024 001136 ADD #RMMR1 , SBDADR 
6015 052700 104275 EMT 275 
6016 052702 000137 053402 JMP 160$ 
6017 052706 50$: 

052706 004777 126626 JSR PC, ,@STOPCL 3 Sige THE CLOCK 
6018 052712 012704 053404 MOV #200$ ,.R4 -R4 = TABLE POINTER 
6020 sSTEP SEQUENCER TO HEAD SEQUENCE AT emer i. (17 -CLOCKS) 

6021 052716 012705 000021 MOV #17. ,R5 :R5 = CLOCK 
6022 052722 60$: 

052722 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT SBDDAT 
6024 SRE EEE ERE REE EEEREREREERAEEEEEEKEEREREEREEEEREEEREREREEEKE 
6025 052730 013737 001142 001174 MOV SBDDAT ,STMPO :IF CC AND CH ARE SET AT THE SAME TIME 
oF : THE ECO TO THE CS BOARD IS IMPLEMENTED. 
6028 052736 042737 171777 001174 BIC #*C<CC!CH>,STMPO ;SAVE CC_AND CH BITS 
6029 052744 022737 006000 001174 CMP #CC!CH,STMPO = ; ARE CC AND CH SET 
6030 052752 001414 BEQ 65$ >YES, BRANCH TO NEW LOCATION 
6031 OTT TIT TTIITIT TIT LITT TLL TILT LEP LLLLLLiide 
6032 
6033 052754 042737 150000 001142 BIC #MRQA! ROB! TST, SBDDAT 
6034 052762 012437 001140 MOV (R4)+,$GDDAT 
6035 052766 053737 001446 001140 BIS RMDCO,$GDDAT ;0R CYLINDER ADDRESS 
6036 052774 023737 001140 001142 CMP SGDDAT , SBDDAT 
6037 053002 001011 BNE 70$ :BRANCH IF TAG BUS WRONG 
6038 053004 65$: 

6039 053004 012760 141401 000024 MOV #DMD ! MUR! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
6040 053012 012760 041401 000024 MOV #DMD ! MUR! MOC ! DBEN, RMMR1 (RO) ;LOAD RMARI 
6041 053020 005305 DEC RS 
6042 053022 001337 BNE 60$ 
6043 053024 000407 BR 80$ 
6044 053026 0100357 001136 70$: MOV RO, $BDADR 
6045 053032 062737 000040 001136 ADD #RMMR2 , SBDADR 
6046 053040 104276 EMT 276 
yo 053042 000557 BR 160$ 
;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT 
0 ;LOCATION 166 
1 053044 80S: 
6052 053044 012760 041001 000024 MOV ADMD 'MUR'!DBEN,RMMR1(RO) ;LOAD RMMR1 
yey 053052 012760 041401 000024 MOV #DMD ‘MUR !MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 


ae ee cee ee —— — eee + -_— —- oe oe ee 


M1 
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— 7120 DATA COMMAND TESTS (3) SEQ 0220 
6055 : STEP —" TO_END OF OFFSET AT LOCATION 174 (37 CLOCKS) 
| 6056 053060 012705 000045 #37. ,R5 ;RELOAD CLOCK COUNT 
| $057 053064 90$: 
6058 053064 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT STORE RMMR2 AT SBDDAT 
| 6059 SOR RROIOIOIOIIIIOIOIOIOIOIOIOIOIOIOIOIOTOIOTOIOIOIOIOI IOI IIIT TOTO NAAN AAAI ACS AAA AM 
| 6060 053072 013737 001142 001174 MOV SBDDAT , $TMPO ;1F CC AND CH ARE SET AT SAME TIME 
| ones ; THE ECO TO THE CS BOARD IS IMPLEMENTED. 
6063 053100 042737 171777 001174 BIC *c<CC!CH> .STMPO SAVE CC ba CH BITS 
6064 053106 022737 006000 001174 CMP A#CC!CH, $TMPO ARE CC AND CH SET 
6065 053114 001003 BNE 92$ "NO! 
053116 162704 000002 SUB #2 ,R4 ADJUST THE TABLE ADDRESS 
6067 053122 000441 BR 115$ :TO0 OTHER LOCATION 
6068 055124 92$: 
6069 SDI RT TTI TTT TTI TIT TTT TT IIT SIT IIA IEMA EEE 
6070 
6071 053124 042737 150000 001142 BIC #RQA! ROB! TST, $BDDAT 
6072 053132 011457 001140 MOV (R4) , SGDDAT 
6073 053136 052714 002000 BIT ACH, (R4) 
6074 053142 001425 BEQ 110$ s;BRANCH IF CONTROL/HEADER NOT ON 
6075 053144 032714 004000 BIT ACC, (R4) 
pre 053150 001416 BEQ 100$ ;BRANCH IF HEADER TAG 
6078 : CONTROL TAG SHOULD BE eo EXPECTED OFFSET 
6079 053152 052737 000010 001140 BIS #8B03,$GDDAT sASSUME OFD IS NOT SET 
6080 053160 032737 000200 001444 BIT »RMOFO 
6081 0531 001406 BEQ 
6082 053170 042737 000010 001140 BIC #8303, aoeeat sRESET BUS BIT 3 - DIRECTION IS REV 
6083 053176 052757 000004 001140 BIS #BB02 , $GD 
come 053204 000404 95$: BR 110$ 
6086 sHEADER TAG SHOULD BE ON ~- SETUP EXPECTED TRACK ADDRESS 
6087 053206 100$: 
6088 053206 113703 001421 MOVB RMDAO+1 ,R3 GET TRACK 
pre os 053212 050537 001140 BIS R3,$GDDAT 
6091 ; COMPARE EXPECTED AND RECEIVED TAG BUS DATA 
6092 055216 110$: 
6093 053216 023737 001140 001142 CMP SGDDAT , SBDDAT 
6094 053224 001015 BNE 120% 
6095 053226 115$: 
053226 012760 141401 000024 MOV ADMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) :LOAD RMMR1 
053 012760 041401 000024 MOV #DMD 'MUR ! MOC ! DBEN, RMMR1 (RO) LOAD RMMR1 
6097 053242 062704 000002 ADD #2 ,R4 ;MOVE TABLE POINTER 
6098 053246 005305 DEC R5 sDECREMENT CLOCK COUNT 
053250 001305 BNE 90$ 
6100 053252 07 BR 130$ 
6101 053254 010037 001136 120$: MOV RO, $BDADR 
6102 0532 062737 000040 001136 ADD #RMMR2 , SBDADR 
6103 053266 104276 EMT 276 
6104 053270 000444 BR 160$ 
6106 ;DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT 
6107 ; SEQUENCER LOCATION 175 
6108 053272 130$: 
6109 053272 012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 





Laie 


2D 
oO 


a es 


053300 


053306 
053312 
053312 


AAABDAHA BAARAOO 
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6122 053520 
oie: 053326 


6135 053400 
6136 
6137 053402 
6138 


6139 
6140 053404 


6165 053464 


ee re eee ~ eee 


012760 


012705 
016057 


042737 
012737 


023737 
00 


104276 
000207 


MPBO pee he es ae | 
COMMAND T 


S$ (3) 
041401 


000010 
000040 


171777 
006000 
001140 


141401 
041401 


001136 
000040 


-_ —— ee Cee 
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000024 


001142 


000024 
000024 


001136 





MOV ADMD ! MUR ! MOC ! DBEN, RMMR1 (RO) 
:STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS) 
tate MOV #8.,R5 


;LOAD RMMR1 


MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT SBDDAT 


SOIR ORCI ICIOROIOIOIOIOIC IORI IIR IIASA A IAAIIA SIS IIS SIS ASISI IIASA IAI AISA AINA 
e BIC #RQA!RQB! TST, $BDDAT 
;THE FOLLOWING CODE WAS ADDED 
3TO ALLOW THE PROGRAM TO RUN WITH 
;OR WITHOUT ECO TO THE CS BOARD. 


BIC A*C<CC!CH>, $BDDAT ;SAVE CC AND CH BITS 
MOV ACC!CH,$GDDAT ;GET EXPECTED DATA 


23 KEKE KEKKKKCKEKKEEKEKEKKKKKKKEKEKKKEKKKEKKREEKKEEEKEKEKEKKKKKKKK 


CMP SGDDAT,S$BDDAT ;GOOD DATA SAME AS LAST CMP 
150$ ;BRANCH IF ERROR 


BNE 
MOV #DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
nee eo eee RMR (RO) ;LOAD RMMR1 
BNE 140$ 
BR 160$ 
150$: MOV RO, $BDADR 
ADD #RMMR2 , SBDADR 
EMT 276 


160$: RTS PC 
shoe OF TAG BUS CONTROL AND DATA VALUES 


«WORD 1777 ;LOCATION O 
-WORD 1777 sLOCATION 25 
«WORD 1777 sLOCATION 26 
«WORD 1777 ;LOCATION 128 
«WORD 1777 LOCATION 129 
-WORD 1777 ;LOCATION 130 
-WORD (CC ;LOCATION 144 
-WORD (CC LOCATION 145 
-WORD CC!TAG ;LOCATION 146 
-WORD CC!TAG sLOCATION 147 
«WORD CC!TAG LOCATION 148 
-WORD CC!TAG ;LOCATION 149 
-WORD CC!TAG sLOCATION 150 
«WORD CC!TAG LOCATION 151 
«WORD CC sLOCATION 152 
«WORD (CC sLOCATION 153 
-WORD 1777 LOCATION 154 
-WORD CH ;LOCATION 156 
. WORD ;LOCATION 157 
~WORD CH!TAG LOCATION 158 
«WORD CH!TAG ;LOCATION 159 
-WORD CH!TAG ;LOCATION 160 
-WORD CH!TAG LOCATION 161 
WORD CH!TAG ;LOCATION 162 
«WORD CH!TAG ;LOCATION 163 


ee ee ee eee 


SEQ 0221 


ee eee =_——— — Ss ee Ssh sR ste — 
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' CZR 
| 1120 DATA COMMAND TESTS (3) SEQ 0222 
| 53466 002000 ‘WORD CH LOCATION 164 
| 6167 053470 002000 .WORD CH ;LOCATION 165 
| 53472 001777 WORD 1777 : LOCATION $34 
| 6169 053474 001777 WORD 1777 *LOCATION 33 
| 6170 053476 001777 WORD 1777 sLOCATION 234 
| 6171 053500 001777 WORD 1777 *LOCATION 235 
| 6172 053502 001777 RD 1777 ;LOCATION 236 
| 6173 053504 001777 WORD 1777 sLOCATION 237 
6174 053506 001777 WORD 1777 *LOCATION 238 
6175 053510 0061777 WORD 1777 sLOCATION 239 
6176 053512 001777 WORD 1777 sLOCATION 240 
6177 053514 001777 WORD 1777 * LOCATION 341 
6178 053516 001777 WORD 1777 sLOCATION 242 
6179 053520 001777 WORD 1777 sLOCATION 243 
6180 053522 001777 .WORD 1777 sLOCATION 244 
6181 053524 001777 .WORD 1777 sLOCATION 245 
526 001777 .WORD 1777 :LOCATION 246 
6183 053530 001777 WORD 1777 sLOCATION 247 
3532 001777 WORD 1777 :LOCATION 248 
6185 053534 001777 .WORD 1777 :LOCATION 249 
6186 053536 001777 ‘10RD 1777 sLOCATION 250 
6187 053540 001777 WORD 1777 LOCATION 251 
188 053542 001777 WORD 1777 :LOCATION 252 
6189 053544 001777 .WORD 1777 LOCATION 166 
053546 WORD CC!CH LOCATION 169 
6191 053550 006 WORD CC!CH LOCATION 170 
6192 053552 026000 WORD CC!CH!TAG :LOCATION 171 
6193 053554 026000 WORD CC!CH!TAG :LOCATION 172 
3556 026000 WORD (CC!CH!TAG :LOCATION 173 
6195 053560 026000 WORD CC!CH!TAG sLOCATION 174 
WORD (CC!CH!TAG LOCATION 175, ETC 


6196 053562 026000 
6198 053564 | 300S: END OF TEST 


LOOT A OE le A Me Se ee Ne ee ee —_— 


— CZRMPBO RMOS5S/3/2 DSKLS TST 1 


END OF SUB-PASS 


LF LE LL TT TT 
a 
erie —— eee Se eR te tae a 


MN 2.3 3 0d ts 
COOWNAOVLS WN -OVD0OVNOUEWR 
© © 


053726 


053772 
053772 


053776 
054000 


ROUT INE 


000137 
012737 


013746 


104405 
005037 


001466 
000002 
001466 


007120 
001470 


053670 


001230 
001126 
0535730 
001126 


001126 


- 2 
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001466 


001230 


-SBTTL END OF SUB=-PASS ROUTINE 


:THIS IS THE END OF SUB-PASS ROUTINE. gg ROUTINE IS USED TO 
: TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
; SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
;TO TEST, EXIT IS MADE TO ‘SEOP’ ROUTINE. OTHERWISE, RETURN 
:1S MADE TO 'READY' ROUTINE. 


SEOSP: 3 a 
MOV TSTQUE ,RO :GET POINTER TO TSTQUE 
ADD #2,R “ADJUST POINT ER TO NEXT DEVICE 
MOV RO. TSTQUE : SAVE POINTER TO TSTO 
Ist (RO) ANY MORE DEVICES FOR TEST ? 
JMP READY :BR JUMP TO "READY’ ROUTINE 
1$: MOV #TSTQUE+2, TSTQUE ay NE LIALIZE POINTER TO FIRST DEVICE IN 


-SBTTL END OF PASS ROUTINE 


FERRARA RARER ARERR ERA RRA REREERR TERRE ERE ERE EERE 
> * INCREMENT THE PASS NUMBER ($PASS) 

:*TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vyyyy’’ 
S*WHERE XXXXX E fmeton an Th io NUMBERS 


7*IF THERES A 
:*IF THERE ISN‘*T JUMP TO READY 
SEOP: 
NOP 
CLR STSTNM :: ZERO THE TEST NUMBER 
CLR STIMES ay THE NUMBER OF ITERATIONS 
INC SPASS ; INCREMENT THE PASS NUMBER 
BIC #100000 ,$PASS >:DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN 3s YES 
MOV (PC) +,a(PC)+ ;z;RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE -65$ 52 Tee ASCIZ STRING 
64$ :GET OVER THE ASCIZ 
zig: “ASCIZ. <12><15>/END PASS #/ 
MOV SPASS .~ (SP) ; SAVE SPASS FOR TYPEOUT 
:i TYPE PASS NUMBER 
TYPDS 3:GO0 TYPE--DECIMAL ASCII WITH SIGN 
TST SERTTL +SEE IF ANY ERRORS THIS PASS 
BEQ $GT42P ;BR IF NO wit TO REPORT 
TYPE ,67$ i: TYPE ASCIZ STRING 
BR 66$ T OVER THE ~ 
rT shade eASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
MOV SERTTL,~(SP) :;SAVE SERTTL FOR TYPEOQUT 
:; TOTAL NUMBER OF ERRORS 
TYPDS 3;G0 TYPE=--DECIMAL ASCII WITH SIGN 
CLR SERTTL :: CLEAR ERROR TOTAL 


8 e+ Se tn es ee ee ee ee | -* —s & 


SEQ 0223 


Se SEE ee ae 


~ 


fume 


De 
| CZRMPBO RMOS/3/2 DSKLS TST 1 MACRO V¥04.00 4=APR=81 01:24:25 PAGE 14-1 
- END OF PASS ROUTINE SEQ 0224 


054004 104401 001217 $GT42P: TYPE , SCRLF tere CARRIAGE onnete LINE FEED 
954010 013700 600042 $GET42: MOV @442,R0 ;GET MONITOR ADDRESS 
054014 001405 BEQ $DOAGN ; BRANCH IF NO NMONI TOR 
054016 000005 RESET 17 CLEAR THE WORLD 
054020 004710 $ENDAD: JSR PC,(RO) ;;G0 TO MONITOR 

054022 000240 NOP ;;SAVE ROOM 

05424 000240 NOP :ZFOR 

054026 000240 NOP :;ACT11 

054030 $DOAGN: 

054030 000137 JMP @(C)+ 3 RETURN 

054032 007120 $RTNAD: .WORD READY 

054034 377 377 000 S$ENULL: .BYTE -1,-1,0 ; NULL CHARACTER STRING 


ee ee eee ~~ eee et ee en 


ee 


ee 


OO NAOVLSWWH HO OWNAUP Wh - 
© o°o° 


34 
654136 
054142 


CI ae a ont 0 ad end sod os 
LATO 


24 054144 


N 
Ww 
© 
rs 
4 
™ 
* 


47 054276 


51 054300 


5 054316 


054306 
3 054314 


012637 
012637 
000207 


777 


012777 


| CZRMPBO RMO5/3/2 _DSKLS TST 1 
CLOCK SUBROUTINE 


000004 
000006 
054136 
000300 


125420 
054300 
054422 
054366 
000300 
001526 
125372 


054144 


05543 


177777 
000135 


000100 


_ 
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125302 


001516 
001524 
000004 


206 
176 


ave alk 
MIM 
Ww 


125176 


. SBTTL 


CLOCK SUBROUTINES 


;ROUTINE TO SIZE FOR CLOCKS (KW11=L OR KW11-P) 


SIZCLK: 


sSEE IF 


108: 


NOP 
M ERRVEC ,=(SP) 


MO 
MOV #10$,ERRVEC 
MOV #PR6,ERRVEC+2 


A Kw11=P CLOCK IS PRESENT - GO TO 10$ IF NOT PRESENT 

TST a$LPCSR :TEST FOR P CLOCK 

MOV #PCLOCK,CLOCK :LOAD SUBROUTINE ADDRESS 

MOV WPSTOP,STOPCL :LOAD STOP ADDR 

MOV #PCOUNT,@$LPVEC :LOAD P CLOCK INTERRUPT VECTOR 
#PR6 ,ASLPVEC+2 

MOV $SLLVEC+2, a$LLVEC :CLEAR L CLOCK INTERRUPT VECTOR 

CLR a$LLVEC+ 


30$ 
MOV #15$, (SP) ;DUMMY RTI ADDRESS 
RTI RESTORE PRIORITY 


PUSH ERRVE C ON STACK 
H ERRVEC+2 ON STACK 
:LOAD 04° tRAP VECTORS 


Oo 
<< 


re P CLOCK=SEE IF L CLOCK IS PRESENT-GO TO 20% IF NOT PRESET 


20$: 


MOV #20$ ,ERRVEC ; CHANGE 04 TRAP VECTOR 

TST @$LLCSR ;TEST FOR L CLOCK 

MOV #LCLOCK,CLOCK LOAD SUBROUTINE ADDRESS 

MOV ALSTOP,STOPCL ;LOAD STOP ADDRESS 

MOV #LCOUNT @$LLVEC ;LOAD L CLOCK INTERRUPT VECTOR 


MOV #PR6,aSLLVEC+2 

MOV SLPVEC+2. aSLPVEC: CLEAR P CLOCK INTERRUPT VECTOR 
CLR aSLPVEC+? 

MOV #25$, (SP) :DUMMY RTI ADDRESS 

RTI “RESTORE PRIORITY 


aug CLOCK AVAILABLE ~- AUGMENT RETURN ADDRESS 


30$: 


CLR ;CLEAR SUBROUTINE ADDRESS 
MOV #SLPVEC 2, »SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR 


$LP 
MOV M#$LLVEC+2,$LLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
CLR $LLVEC+2 
;CHANGE RETURN ADDRESS 


ADD #2,4(SP) 
sPOP STACK INTO ERRVEC+2 


MOV (SP) +, ERRVEC+2 
MOV ee ; ;POP sTAtK INTO ERRVEC 


;ROUTINES TO START THE CLOCK (KW11-L OR KW11-P) 


PCLOCK: 


LCLOCK: 


MOV #-1, a$LPCSB *LOAD COUNT SET BUFFER 
MOV #135 @$LPCSR § :LOAD CONTROL REGISTER 
BR PLC >GO TO COMMON CODE 


MOV #100, a$LLCSR ;LOAD CONTROL REGISTER 


SE EE A EE Se ee << . 


SEQ 0225 


F 
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| CLOCK SUBROUTINES SEQ 0226 


S7 054324 005037 001532 PLCLK: CLR TIME CLEAR TIMER COUNT 

58 054330 104400 TRAP +:PUSH OLD PSW AND PC ON STACK 
054332 012605 MOV (SP)+,R5 ::SAVE THE Psi IN RS 

59 054334 010537 001530 MOV RS, $PSW *SAVE PRIORITY 

60 054340 2705 177437 BIC #*CPR7,RS “MASK X 

1 054344 022705 000300 CMP #PR6,RS 1S PRIORITY TOO HIGH?? 

62 0543550 101005 BH] 40$ “NO! ! 

63 054352 012746 (000240 MOV #PR5,=-(SP) es 2 NEW PS ON STACK 
054356 012746 054364 MOV #30$,-(SP) :sPUT NEW PC ON STACK 
054362 RT] :;POP NEW PC AND PS 
054364 30$: 

oS 054364 000207 40$: RTS PC 

66 sROUTINES TO HANDLE CLOCK INTERRUPTS (KW11=L OR KW11-P) 

68 054366 PCOUNT: 

69 054366 L COUNT : 

54 062737 000021 001532 ADD #17.,TIME :ADD 17MS TO ELAPSED TIME 

71 054374 103003 BCC 10$ “BRANCH IF NO OVERFLOW 

72 054376 012737 177777 001532 MOV #~1,T IME sRESTORE MAXIMUM COUNT 

73 054404 162737 000021 001534 10S: SUB #17. ,WATCH :DECREMENT REMAINING TIME 

74 054412 ~=«71 2 BPL 20$ * BRANCH IF POSITIVE 

75 054414 005037 001534 CLR WATCH ;CLEAR REMAINING TIME 

* 054420 208: RT] * RE TURN TO USER 

sROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P) 

80 054422 005077 125064 PSTOP: CLR @$SLPCSR :STOP P CLOCK 

8} 054426 000402 BR PLSTP -GO TO COMMON STOP CODE 

= 054430 005077 125066 LSTOP: CLR @a$LLCSR :;STOP L CLOCK 

85 054434 PLSTP: 

86 054434 013746 007530 MOV $PSW,- (SP) ::PUT NEW PS ON STACK 
054440 012746 054446 MOV #10$,-(SP) ::PUT NEW PC ON STACK 
054444 000002 RTI ::POP NEW PC AND PS 
054446 10$: 

87 054446 000207 RTS PC 


G 2 
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| SET VOLUME VALID SUBROUTINE SEQ 0227 


~SBTTL SET VOLUME VALID SUBROUTINE 


;THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS a VALID, 
:RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE. THE SUBROUTINE 
:RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR [S 
sDETECTED, IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 


: - 
= 


NOUS WY -OWW\YOAMNPWh 
© 


| "CALL: JSR PC, SETVV JUMP TO SUBROUTINE 
| 1 : BR 2? RETURN HERE IF NO ERROR 
| ; ERROR RETURN HERE IF ERROR 
| 13 054450 SETVV: 
14 054450 004737 054674 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
15 054454 012760 000001 000024 MOV #DMD,RMMR1(RO) =LOAD RMMR 
1 012760 001001 000024 MOV #DMD 'MUR, RMMR1 (RO) :LOAD RMMR1 
17 054470 012760 000000 000014 MOV #0,RMER1(RO) :LOAD RMER1 
18 054476 012760 000000 000042 MOV #0,RMER2(RO)  :LOAD RMERZ 
19 054504 012760 000023 000000 MOV #PACACK!GO,RMCS1(RO) =LOAD RMCS1 
20 654512 016037 000012 001142 MOV RMDS(RO), SBDDAT :STORE RMDS AT $BDDAT 
21 054520 042737 177677 001742 BIC #*CVV, SBDDAT 
22 054526 001020 BNE 10$ :BRANCH IF VOLUME VALID SE7 
23 054530 010037 001136 MOV RO, SBDADR -SETUP FOR ERROR MSG 
24 054534 062737 000012 001136 ADD ARMDS , SBDADR 
25 054542 012737 000100 001140 MOV #VV,$GDDAT 
26 054550 062716 000002 ADD #2, (SP) :MOVE RETURN ADDRESS TO ERROR 
27 054554 112776 000170 000000 MOVB  #170,a(SP) “WRITE ERROR NUMBER 
28 054562 012737 000022 001174 MOV #PACACK , STMPO 


29 054570 000207 10$: RTS PC RETURN 


Oe ee ee eer ewe | 


54572 


NOAULSWN OOO NOUPW-» 


wed eed ced od od ed od oD 


26 054672 
27 054672 


012760 


112776 
000207 
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SET OFFSET MODE SUBROUTINE 


001001 
000 


000002 
000200 
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000024 


001142 
001140 
001136 
000000 


-SBTTL SET OFFSET MODE SUBROUTINE 


;THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 
sMODE SETS. THE DRIVE SHOULD BE IN ton ge MODE WHEN CALLING THE 
; SUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
“WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
;RETURNS TO THE SECOND WORD FOLLOWING THE CALL 


“CALL: JSR PC,SETOM JUMP TO SUBROUTINE 

: BR 23 RETURN HERE IF NO ERROR 
: ERROR RETURN HERE IF ERROR 
SETOM: 


MOV ADMD ! MUR ,RMMR1 (RO) ;LOAD RMMR1 
MOV #0,.RMER1 (RO) ;LOAD RMER1 

MOV #0 ,RMER2 (RO) ;LOAD RMER2 

MOV #OF FSET !GO,RMCS1 (RO) ;LOAD RMCS1 
MOV RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
BIC #*COM, SBDDAT 

BNE 1 ;BRANCH IF OFFSET ON 


ADD #2, (SP) ;MOVE RETURN ADDRESS TO ERROR 
MOVB #200,a(SP) ;WRITE ERROR NUMBER 


RTS PC sRETURN TO USER 


10$: 


SEQ 0226 


aaelliee diet —— 


= . 
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NE SEQ 022% 


CLEAR CONTROLLER SUBROUT! 


001276 
10 054702 012760 000040 000010 
11 054710 117760 124552 000010 


2600 
13 054720 000207 


.SBTTL CLEAR CONTROLLER SUBROUTINE 


: THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTFRS, 
;AND DRIVES, THEN SELECTS THE DRIVE. 


: CALL: 
: JSR PC,CNTCLR - $CALL TO ROUTINE 
CNTCLR: 
MOV RO,-(SP) i sPUSH RO ON STACK 
MOV $BASE ,RO “RO = UNIBUS BASE ADDRESS 
MOV #CLR,RMCS2(RO) =CLEAR MASSBUS 
MOVB aT STQUE .RMCS2(RO) :SELECT DEVICE UNDER TEST 
MOV (SP) +,RO ::POP STACK INTO RO 
RTS PC * RE TURN 


A SELES LOOT OE eh nm em ee 


<= - EL LT eR 
OO 
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— SAVE AND RESTORE RO=RS ROUTINES SEQ 0230 
1 .SBTTL SAVE AND RESTORE RO=RS ROUTINES 

SL RRA AEA AAAAAAAKAEKANARARHRH RAE eee 

»*SAVE RO=-R5 

>* CALL: 

3 SAVREG | 

: “UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 

‘ eTOP=-=(+16) 

tk +2=<=(+18) 

se +4=---R5 

s% +6=--R4G 

se +8---R3 

3 *+10---R2 

p%+12---R1 

> *+14---R0 
054722 SSAVREG: 
054722 010046 MOV RO,-(SP) 7;PUSH RO ON STACK 
654724 010146 MOV R1,-(SP) : PUSH R71 ON STACK 
054726 010246 MOV R2,~(SP) 7ZPUSH R2 ON STACK 
054730 010346 MOV R3,-(SP) 7 7PUSH R3 ON STACK 
054732 010446 MOV R4,- (SP) : PUSH R4 ON STACK 
054734 010546 MOV R5,-(SP) : PUSH RS ON STACK 
054736 016646 000022 MOV 22(SP), ~(SP) 7z SAVE PS OF MAIN FLOW 
054742 016646 000022 MOV 22(SP), “= (SP) :;SAVE PC OF MAIN FLOW 
054746 016646 000022 MOV 22(SP) ,~-(SP) 3zSAVE PS OF CALL 
054752 016646 000022 MOV 22(SP) ,-(SP) 7Z SAVE PC OF CALL 
054756 000002 RT] 

:*RESTORE RO-R5S 

;*CALL: 

3% RESREG 
054760 SRESREG: 
054760 012666 000022 MOV (SP) +,22(SP) : RESTORE PC OF CALL 
054764 012666 000022 MOV (SP) +,22(SP) : RESTORE PS OF CALL 

012666 000022 MOV (SP) +,22(SP) > :RESTORE PC OF MAIN FLOW 
054774 012666 000022 MOV (SP)+,22(SP) ;;RESTORE PS OF MAIN FLOW 
055000 012605 MOV (SP)+,R5 :;POP STACK INTO R5 
055002 012604 MOV (SP) +,R4 7zPOP STACK INTO R4& 
012603 MOV (SP)+,R3 38 STACK INTO R3 

C55006 012602 MOV (SP) +,R2 :;POP STACK INTO R2 
055010 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
055012 012600 MOV (SP)+, “RO :z;POP STACK INTO RO 


055014 000002 RTI 


re mer ee ee ne + ee ee ee ee - 


- CZRMPBO RMO5/3/2 DSKLS TST 1 


ee Be eee 
eer ae 


BINARY TO ASCII AND 


055016 
055020 


05 
055070 


010146 


TYPE ROUTINE 


000006 
000060 


055070 
055070 


000002 


000 
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055070 


000004 


-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


SURO II IOIOIIOISISISISIISIIISISISIISIIIIIIDIOIOIDIDIOITIDIDIDIOIOIOIIIOI TOTTI IAAI ASAI SAM 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BI1T 
> *BINARY=ASCII NUMBER AND TYPE IT. 


s*CALL: 


** 
. 
'* 


$TYPBN: 


1$: 


2$: 


$BIN: 


MOV 
TYPBN 


NUMBER , = (SP) 


R1,=(SP) 
6(SP) ,R1 


#'O, $BIN 


(SP)+,R1 
2(SP) ,4(SP) 
(SP) +, (SP) 


0,0 


+ sNUMBER TO BE TYPED 
;TYPE IT 


3sSAVE_R1 ON THE STACK 

;;GET THE INPUT NUMBER 

+i SET "'C’' SO_CAN KEEP TRACK OF THE NUMBER OF BITS 
;SET CHARACTER TO AN ASCII ‘0"’. 

:2GET THIS BIT 


; DONE? 
;sNO--SET THE CHARACTER EQUAL TO THIS BIT 
+4G0 TYPE THIS BIT 

;CLEAR ‘'C'’ SO CAN KEEP TRACK OF BITS 
:7G0 DO THE NEXT BIT 
3zPOP THE STACK INTO R1 
;;ADJUST THE STACK 


; RETURN TO USER 
:sSTORAGE FOR ASCII CHAR. AND TERMINATOR 


rr ee re re me —_—- - 


SEQ 023) 


; 


055072 


055254 


| CZRMPBO RMOS/3/2 DSKLS TST 1 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


020200 
000020 
000055 


055306 
000040 


055276 


177777 


-_ 
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000001 


177777 


177776 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


J REAAAAEEAAEAAEREEAAEAAAAAAEAAARAAAAAAKAAAAAAAAEHAAERRHR ER 


: THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 


* *NUMB £ 
: *BEFORE THE FIRST DIGIT OF 
:*REPLACED WITH SPACES. 


NUM, = (SP) 


* CALL 


$TYPDS: 


8$: 


MOV 
TYPDS 


ca 


1(SP) ,~1(R3) 


JR? 
2 


(SP) + 


(SP)+, °R1 





NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
R NEGATIVE A SPACE OR A MINUS SIGN 
THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


WILL BE TYPED 


;;PUT THE BINARY NUMBER ON THE STACK 
:;GO TO THE ROUTINE 


3;PUSH RO ON STACK 


+ PUSH RS ON STACK 
ot A INPUT 


23ST THE FIRST CHARACTER TO A BLANK 
“ THE BCD NUMBER 


“GET THE CONSTANT 
: 3FORM THIS BCD DIGIT 


>: INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
ae IF BCD DIGIT=0 


FALL THROUGH IF 0 
iin iF = ig LEADING 0°S? 


:3BR IF NO 
32YES--SET THE SIGN 
> sMAKE THE BCD DIGIT ASCII 
sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
::PUT THIS mine” IN THE OUTPUT BUFFER 
;;JUST INCREMENTING 
;;CHECK THE TABLE INDEX 
:-GO0 DO Pi DIGIT 


THE LSD 
CHANGE TOA 
HE 
: TPOP STACK INTO R3 


::POP STACK INTO R2 
;:POP STACK INTO R1 


ee ee eee. ne ee ee eee oe eee me ee = + eee — ewe we ere - 


SEQ 0232 


_—- 


- ad ee eee on +e - — ee ee ee ee ee ee ee ew _ 
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- SEQ 0235 


BINARY TO DECIMAL AND TYPE ROUTI 

055256 012600 MOV (SP)+,RO :zPOP STACK INTO RO 

055260 104401 055306 TYPE $DALK «NOW TYPE THE NUMBER 

055264 016666 000002 000004 MOV e (SP) 44 (SP) “ADJUST THE STACK 
; : ;RETURN TO USER 


000002 RT! 
055276 023420 $DTBL. 10000. 
055300 1000. 
055302 000144 100. 

000012 10. 
$DBLK: .BLKW 4 


SEL TS Se mmm —_—— - 


| 
| 
| 


055316 


055460 


-_—— - _ 


| CZRMPBO RMOS/3/2 DSKLS TST 1 
BINARY TO OCTAL (ASCII) AND TYPE 


000000 
000001 
055543 
000002 
000001 


000006 
000005 
055545 


000006 
055542 
055541 
000012 


055542 
177770 
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-SBTTL BINARY TO OCTAt 


(ASCII) AND TYPE 


2 TRERARSAAAASRRASASLASARRARRRRRRRERARRRE RARER RRR RRR RR RRR RSA SSSR SLES S S| 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:*OCTAL (ASCII) NUMBER AND TY 


PE IT 
; *$STYPOS==~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


*CALL: 


+ MOV NUM, = (SP) 
of TYPOS 

:* -BYTE oN 

;* BYTE ™ 

»2 

5 


;;NUMBER TO BE TYPED 

;;CALL FOR TYPEOUT 

:iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
‘M=1 OR 0 


a :1=TYPE LEADING ZEROS 
« O=SUPPRESS LEADING ZEROS 


‘ #STYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; *$TYPOS OR $TYPOC 
CALL: 


“ MOV NUM, - (SP) 
:* TYPON 
>*CALL 
‘2 MOV NUM, = (SP) 
s* TYPOC 
$TYPOS: MOV a(SP),-(SP) 
055541 MOVB 1(SP), * SOF ILL 
MOVB (SP) + zSOMODE*+1 
ADD #2, (SP 
STYPON. 
055541 S$TYPOC: MOVB #1,S0F ILL 
055543 MOVB #6, SOMODE +1 
055540 S$TYPON: MOVB #5, $0CNT 
MOV R3,~-(SP) 
MOV R4,~-(SP) 
MOV R5,-(SP) 
MOVB SOMODE +1, R4 
NEG R4 
ADD #6 ,R4 
MOVB RG, E 
MOVB SOF ILL,R4S 
MOV 12(SP),R5 
CLR R3 | 
1$: ROL R5 
BR 3$ 
2$: ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 
DECB SOMODE 
BPL 7$ 
mee #177770,R3 
TST R4 
BEQ 5$ 
4$: INC R4 





; ;NUMBER TO BE TYPED 
;-CALL FOR TYPEOUT 


* 
> *$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;NUMBER TO BE TYPED 
SICALL FOR TYPEOUT 


;zPICKUP THE MODE 

+s LOAD ZERO FILL SWITCH 

; DIGITS TO TYPE 
;:ADJUST RETURN ADDRESS 


7:SET THE ZERO FILL SWITCH 
3;SET FOR SIX(6) DIGITS 
Ssoet = ITERATION COUNT 


7: SAVE R5 
3:GET THE NUMBER OF DIGITS TO TYPE 
; SUBTRACT IT FOR MAX. ALLOWED 


‘SAVE IT FOR USE 
+2 GET THE ZERO FILL SWITCH 
NUMBER 


::CLEAR THE OUTPUT WORD 
¢ ¢ROTATE MSB INTO *'C’* 


DO MSB 
>= FORM THIS DIGIT 


::GET LSB OF ats ,DiGiT 
Pg AS DIGIT 


IF NO 
GET a OF JUNK 
;:TEST FOR OQ 
A eae THIS Q? 
R YES 


IF 
::DON'T SUPPRESS ANYMORE 0°S 


a re rm eee le 


SEQ 0254 


i 
i 
! 
j 
! 


| 
| 
| 


_ CZRMPBO RMOS/3/2 DSKLS TST 1 
| BINARY TO OCTAL 


655542 


—_——- ~ a -- ———— -- 


(ASCII) AND TYPE 


104401 
105337 055540 
003347 


000002 000004 


5$: 


7$: 


6$: 


8$: 
SOCNT: 


SOF ILL: 
SOMODE : 





Se 3 
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FOR 
: G0 TYPE THIS DIGIT 
a T BY 1 


+ ¢BR MORE TO DO 


" LINSURE LAST iat ISN'T A BLANK 
::GO DO i. DIGIT 


; RESTORE R 
7 RESTORE R4 
;RESTORE 


;ZRES R3 

3;SET THE STACK FOR RETURNING 
RETURN 

35 pre FOR ASCII DIGIT 


:-ZERO FILL SWITCH 
; NUMBER OF DIGITS TO TYPE 


LEA A RS a tl i a lt ee 


SEQ 0255 


co 


— CZRMPBO RMO5/3/2 DSKLS TST 1 
TYPE ROUTINE 


pofiome 


055544 


055712 
055716 


055720 
055724 
055730 


105737 
100002 


004737 
123726 
001350 
013746 
105366 
002770 
004737 
105337 
000770 


001173 


000002 
000001 


000100 


055614 
062346 


000040 


000002 
000011 
000200 


056074 


055756 
001172 


001170 
000001 


055756 
056074 


C 
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001242 
001243 


001243 


-SBTTL TYPE ROUTINE 


MARR RARARASRARARARARRRARRRRRRRRR RRR RRR RRR RE RE RRR RRR RR SRE SE SEES SE SE 


® RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 wit 


; * THE ROUTINE WILL INSERT A NUMBE 
TE1: $NUL 


R OF NULL CHARACTERS AFTER A LINE 


FEED. 
L CONTAINS THE CHARACTER "¥ BE USED AS THE FiLLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF 


FILLER a ata REQUIRED. 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER 


aD USING A TRAP INSTRUCTION 
YPE »MESADR 


5$: 
6$: 


7$: 





TYPE 
ME SADR 


STPFLG 
1$ 


#APTENV, SENV 
es 
62$ 


RO,61$ 
PC, SATY5S 


#APTCSUP ,SENVM 
(RO) +,-(SP) 

4$ 

(SP)+ 

(SP)+,RO 

#2, (SP) 

WHT, (SP) 
ACRLF, (SP) 

5$ 

(SP) + 


SCHARCNT 


$ 
PC ,STYPEC 
SFILLC,(SP)+ 


2$ 
SNULL ,~ (SP) 
1(SP) 

6$ 


PC, STYPEC 
SCHARCNT 
7$ 


;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


é15 He A TERMINAL ? 
{HALT ERE IF NO TERMINAL 


VE RO 
7 GET ADDRESS OF ASCIZ STRING 
RUNNING IN APT MODE 
; NO, GO CHECK FOR APT CONSOLE 
SSAGE TO APT 


-oNO ME 

NO,GO CHECK FOR CONSOLE 
::SETUP MESSAGE ADDRESS FOR APT 
::SPOOL MESSAGE TO APT 
7 :MESSAGE ADDRESS 
:7APT CONSOLE SUPPRESSED 
:YES,SKIP TYPE OUT 

CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'] THE TERMINATOR 
ti lF TERMINATOR POP IT OFF THE STACK 


33 ORE RO 

; ;ADJUST RETURN PC 

7 7RETURN 

; :BRANCH IF <HT> 

: ;BRANCH IF NOT <CRLF> 


:zPOP <CR><LF> EQUIV 
:7 TYPE A CR AND LF 


3:CLEAR CHARACTER COUNT 
2 3GET NEXT CHARACTER 
TYPE THIS CHARACTER 
IT TIME FOR FILLER CHARS.? 
NEXT CHAR. 

LLER CHARS. NEEDED 

CHAR. 
L NEED TO BE TYPED? 
-GO POP THE NULL OFF OF STACK 


NULL 
~ COUNT AS A COUNT 


SEQ 0236 


LL LLL OLLIE EE GEL TS TE A SERS AE: SEED 8S Oe ES ES Se 


Se ee eee — 


055732 
736 


056076 


— CZRMPBO RMO5/3/2 DSKLS 
| TYPE ROUTINE 


ers 
737 


005726 


ia: 1 


04 8$: MOVB #' .(SP) 
055756 9$: JSR PC, $TYPEC TYPE A 
7 056074 BITB #7.$CHARCNT ; {BRAN 
BNE 9$ 
TST (SP) + 
STYPEC: 
123176 
BPL 10$ ;#BR_IF 
123172 MOV a$TkKB,-(SP) 
177600 
000023 CMPB ss WS XOF F , (SP) +s WAS 
BNE 102$ ::BR IF 
101$: 
123152 STB ~=—s_ @STKS 
BPL 101$ 
123146 MOVB  a$TKB,<SP) s 
177600 BIC #177600, (SP) :;STRIP_IT 
000021 CMPB  —s- A#SXON,, (SP) 
BNE 
102$: 
ae TST (SP) + siF IX STACK 
123130 TSTR =. aSTPS 
BPL 10$ 
000002 123122 MOVB  2(SP),a@$TPB 
000015 000002 CMPB wR, .2(SP) 
056074 CLRB SCHARCNT 
000012 000002 1$: CMPBOALF, 2 (SP) 
BEQ $TYPE 3 
INCB 
S$CHARCNT:.WORD 0 


D 
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;HORIZONTAL TAB PROCESSOR 


KB,=(S CHAR 
BIC #177600, (SP) i iSTRIP EXTRANEOUS BITS 


$TYPEX: RTS PC 


sien a eparee SPACE 


TAB STOP 
:;POP SPACE OFF STACK 
BR 2$ ;;GET NEXT CHARACTER 


TSTB @a$TKS ; ; CHAR —- BUF FER? 


;;WAIT FOR CHAR 


::BR IF NOT - 


3zWwAIT UNTIL PRINTER IS READY 


LOAD CHAR TO BE TYPED INTO DATA REG. 
HIS ogee A CARRIAGE RETURN? 


NO 
i YES==CLEAR CHARACTER COUNT 
z318 ogy ig Ry LINE FEED? 


(POs. 7;COUNT THE CHARACTER 
;- CHARACTER COUNT STORAGE 


Or ee ee ee 


SEQ 0257 


ri EE eentteie eens enna 


— CZRMPBO RMOS/3/2 DSKLS TST 1 
SCOPE HANDLER ROUTINE 


056116 
056120 


000416 


040000 
056542 


000004 
056144 
177060 
000004 


000004 
000400 


122762 
000120 
001116 


056560 
001122 


001117 
177777 
000004 
056266 
177766 
177777 
056502 


| : 3 
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123044 


000004 


122772 


057410 


000004 
057410 


0574190 


-SBTTL SCOPE HANDLER ROUTINE 


: SAAR AAAAAAAAEAAAARAAKAAHEHAAARATREHEERHEHREEEEEEREEeaee 


:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS me taet BY THIS ROUTINE ARE: 


:*SW14=1 


9$: 
sAAAAASTART OF ey FOR THE XOR 


$XTSTR: BR 


S$: CMP 


8$: TST 
2$: TSTB 


20008: MOV 


LOOP 
LOOP ON 


ON TEST 
TNHIAI T ITERATIONS 
ERROR 


LOOP ON TEST IN SWR<7:0> 
;;SCOPE=I0T 


#B1T14,aSWR 
9$ 
SOVER 


@#ERRVEC,-(SP) 
#5$, AWERRVEC 
a#177060 


(SP) + ,a#ERRVEC 
$SVLAD 


L 
(SP)+, (SP)+ 
la - @#ERRVEC 


TEST FOR CHANGE IN SOF T=SWR 
;sLOOP ON PRE SENT TEST? 

:NO IF SW14= 

;;JUMP OVER SCOPE ROUT INE 


pt tigen 
i IF ING ON THE *‘XOR"* TESTER CHANGE 
;; THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
ZSAVE THE CONTENTS OF THE ERROR VECTOR 
$ISET FOR TIMEOUT 
:TIME OUT XOR? 
; SRESTORE THE ERROR VECTOR 
TO THE NEXT TEST 
2: CLEAR THE STACK AFTER A TIME OUT 
sRESTORE THE ERROR VECTOR 
:LOOP ON THE PRESENT TEST 


CODE FOR THE xOR’ TESTERMAAAH 
#81708 ,aSwR 


-(SP) 
@SWR , (SP) 
#120, (SP) 
(SP) .STSTNM 
(SP) 


(SP) 
#$SWOBTBL , (SP) 
oe 


#-1, CPSAVE 
2003$ 


ERRVEC ,~(SP) 
#2000$ ,ERRVEC 
177766, CPSAVE 
cw! $ 


, CPSAVE 
#20013. (SP) 





ee ee 


+ LOOP ON SPEC. TEST? 
;;BR_IF NO 


:3 CLEAR A _ TEMP. LOCATION 
;sPICKUP THE DESIRED TEST NUMBER 
::BRANCH IF BAD TEST NUMBER IN SwR 
; CHECK THE NUMBER IN THE SWR 
;BRANCH IF TEST NUMBER IS OUT OF RANGE 
> :UPDATE oo TEST NUMBER 
3; ;BACKUP 
:sSCALe THE TEST NUMBER AS AN INDEX 
;3FORM THE ADDRESS OF TEST POINTER 
s3SET LOOP ADDRESS TO DESIRED TEST 
LOOP ON THE TEST 
: 7 CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
7 HAS ——o OCCURRED? 


33508 IF TIMEOUT WAS PREVIOUSLY RECORDED 
:KICK AROUND ROUTINE IF SO 

::SAVE CONTENTS OF ERROR VECTOR 

;;SETUP *TRAP* RETURN ADDRESS 

::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


:7SET CPU ERROR REGISTER TIMEOUT INDICATOR 
>; SETUP RETURN ADDRESS 


ee erm ee mene 


SEQ 0238 


LO rr cer ee 


CZRMPBO RMO5S/3/2 DSKLS 
SCOPE HANDLER ROUTINE 


056302 


012637 
022737 
001430 


012637 
123737 


TST 1 


000004 
177777 
000001 
000001 


001131 
001000 
001124 


001117 
001206 


004000 
001230 


, a 
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057410 
057410 
177766 


001154 
122570 


001117 
122540 
001122 


122506 


001120 


001120 
001206 


001226 


001131 
122406 


2001$: 
2002$: 


2003$: 


7$: 


4$:. 


3$: 


1$: 


SSVLAD: 


SOVER: 


SMXCNT: 


MOV 


(SP) +, ERRVEC 
#~1,CPSAVE 
2003$ 
#B1T00,CPSAVE 
#B1T00,177766 
WR = (SP) 
(SP) ,aSWR 


#B1T09,aSWR 
177 


(SP) +,@(SP) 
(SP) +, SWR 


SERMAX , SERFLG 
+ aie 
SLPERR,$LPADR 
SOVER 


SERFLG 
STIMES 


1$ 
#B81T11,aSWR 
1$ 


SPASS 
1$ 


SICNT 
STIMES,SICNT 
SOVER 


#1, S1CNT 
SMXCNT .STIMES 


STSTNM 
STSTNM,STESTN 
(SP) , SLPADR 
(SP), SLPERR 
SESCAPE 


#1 , BERMAX 
STSTNM,a@DISPLAY 
$LPADR, (SP) 
TST1+2 


TST12+2 
TST15+42 


;sRESTORE CONTENTS OF ERROR VECTOR 
+s SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
ANCH IF SO 


+s SEE IF THE POWER MONITOR BIT IS ON 

RANCH TO CONTINUE a IF CLEAR 
:;CLEAR THE BIT FOUND TO BE SET 
;;SAVE SWR ADDRESS 
sieer SWR VALUE 

he! SOFTWARE SWR ADDRESS 

T CURRENT SWR VALUE 

; DON’ T ALLOW LOOP ON ERROR ON THIS ERROR 
3 CALL SPECIAL POWER FAI! BIT ERROR CALL 
;sRESTORE SWR TO ORIGINAL VALUE 
; RESTORE SWR ADDRESS 


+ a ee FOR THIS TEST OCCURRED? 


3;;LOOP ON ERROR? 
3;BR IF NO 
3;;SET LOOP ADDRESS TO LAST SCOPE 


;;ZERO THE ERROR FLAG 
;; CLEAR THE NUMBER OF all TO MAKE 
;z ESCAPE TO THE NEXT TEST 
oF ITERATIONS? 
;;BR IF YES 
ee TF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
>: INCREMENT ITERATION COUNT 
; 3 CHECK THE NUMBER OF ITERATIONS MADE 
:BR IF MORE ITERATION REQUIRED 
: TREINITIALIZE THE ITERATION COUNTER 
NUMBER OF ITERATIONS TO DO 
:: COUNT TEST NUMBERS 
7:;SET TEST NUMBER IN APT MAILSOX 
7ZSAVE SCOPE LOOP ADDRESS 
: SAVE ERROR LOOP ADDRESS 
+2 CLEAR THE ESCAPE FROM ERROR ADDRESS 
sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
:;DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
iE IXES PS 
:;MAX. NUMBER OF ITERATIONS 


+3 STARTING ADDRESS OF 


STARTING ADDRESS OF 
3; STARTING ADDRESS OF 
;;STARTING ADDRESS OF 


WIS 


ee ee ee — .—_m——s © 


SEQ 0259 


oe ee. 
a ee ee 
LLL LLL LL LCL CCC I A ttt ee a ttt — ee a erence serene ane 


ee 
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SCOPE HANDLER ROUTINE SEQ 0240 
056606 014234 -WORD TST14+2 ;3STARTING ADDRESS OF TEST 14 
056610 014334 -WORD TST15+*2 ;;STARTING ADDRESS OF TEST 15 
056612 014660 «WORD TST16+#2 3:STARTING ADDRESS OF TEST 16 
056614 015372 «WORD TST17+#2 ;;STARTING ADDRESS OF TEST 17 
056616 015474 .WORD TST20+2 ;;STARTING ADDRESS OF TEST 20 
015760 «WORD TST21+2 ;¢STARTING ADDRESS OF TEST 21 
056622 016076 .WORD TST22+2 ;sSTARTING ADDRESS OF TEST 22 
056624 016224 .WORD IST23+2 ;:STARTING ADDRESS OF TEST 23 
056626 016476 . WORD T24+2 ;;STARTING ADDRESS OF TEST 24 
016776 -WORD TSi25+2 ;-STARTING ADDRESS OF TEST 25 
056632 017420 ~WORD TST26+*2 ;; STARTING ADDRESS OF TEST 26 
017514 WORD TST27+e ;;STARTING ADDRESS OF TEST 27 
056636 2 WORD TST30+2 ;;STARTING ADDRESS OF TEST 30 
056640 020316 WORD TST31+#2 ;.STARTING ADDRESS OF TEST 31 
056642 WORD TST32+2 ;:STARTING ADDRESS OF TEST 32 
056644 021524 WORD TST33+2 ;:STARTING ADDRESS OF TEST 33 
056646 021636 .WORD TST34+2 ;:STARTING ADDRESS OF TEST 34 
056650 0221350 -WORD TST35+2 :;STARTING ADDRESS OF TEST 35 
056652 022452 WORD TST36+2 ;:STARTING ADDRESS OF TEST 36 
656654 023012 WORD TST37+2 :;STARTING ADDRESS OF TEST 37 
056656 «WORD TST40+2 ;sSTARTING ADDRESS OF TEST 40 
0 023752 WORD TST41+2 ;.STARTING ADDRESS OF TEST 41 
056662 024254 «WORD TST42+2 ;-STARTING ADDRESS OF TEST 42 
056664 024636 WORD TST43+2 :2STARTING ADDRESS OF TEST 43 
05 WORD TST44+2 2 START SS OF TEST 44 
056670 WORD TST45+2 ; STARTING ADDRESS OF TEST 45 
056672 026076 -WORD TST46+2 :sSTARTING ADDRESS OF TEST 46 
056674 026372 -WORD ITST47+2 ; STARTING ADDRESS OF TEST 47 
056676 026774 -WORD [TST50+2 ;.STARTING ADDRESS OF TEST 50 
056700 027239 «WORD TST51+#2 7: STAR OF TEST 51 
056702 027436 «WORD TSTS2+2 7;STARTING ADDRESS OF TEST 52 
056704 030270 «WORD TST53+2 :;STARTING ADDRESS TEST 53 
30 -WORD TST54+2 7 STARTING ADDRESS OF TEST 54 
056710 030744 WORD TST55+2 :2STARTING ADDRESS OF TEST 55 
056712 031156 WORD TS156+2 ;sSTARTING ADDRESS OF TEST 56 
056714 031352 WORD yin S ;; STARTING ADDRESS OF TEST 57 
056716 031532 WORD TST60+ ;:STARTING ADDRESS OF TEST 60 
031750 ‘ TST61+2 :sSTARTING ADDRESS OF TEST 61 
056722 032116 WORD TST62+2 : STARTING ADDRESS OF TEST 62 
056 34 -WORD TST63+2 7;STARTING ADDRESS OF TEST 63 
056726 032456 WORD ITST64+#2 7; STARTING ADDRESS TEST 64 
C5673C 032644 -WORD IST65+2 3;STARTING ADDRESS OF TEST 65 
033074 «WORD TS166+2 ;¢STARTING ADDRESS TEST 

056734 033312 -WORD TST67+2 7¢STARTING ADDRESS OF TEST 67 
056736 053540 -WORD TST70+2 ;:STARTING ADDRESS OF TEST 70 
056740 034010 . WORD eras S335. ADDRES EST 71 
056742 034216 -WORD ITST72+ 7: STARTING ADDRESS OF TEST 72 
056744 506 -WORD TST73+2 ;; STARTING ADDRES TEST 73 
056746 034734 «WORD TST74+2 STARTING ADDRESS OF TEST 74 
056750 035042 . WORD i he gd s: STARTING ADDRESS OF TEST 75 
56 WORD TST76+ 5 RT AATING ADDRESS OF TEST 76 
056754 035316 WORD TST77+2 TARTING ADDRESS OF T 7? 

056756 035450 «WORD TST100+2 STARTING ADDRESS OF TEST 100 

03560 «WORD TST101+2 2: STARTING ADDRESS OF TEST 101 

056762 035772 . WORD $T102+2 rs TING ADDRESS GF TEST 102 

056764 036174 WORD TST103+2 :: STARTING ADDRESS OF TEST 103 

056766 036322 WORD TST104+2 STARTING ADDRESS OF TEST 106 


LLLP LOLS OL LLG ELE SS LES EE NE lh lit ct i 


H 3 
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SCOPE HANDLER ROUTINE SEQ 0241 
| 5677 $26 WORD TST105+2 STARTING ADDRESS OF TEST 105 
O37 9 Oeese . WORD et 10a05 :; STARTING ADDRESS OF TEST 106 
056774 037052 WORD TST107+2 STARTING ADDRESS OF TEST 107 
056776 037250 WORD 1S7110+¢2 :; STARTING ADDRESS OF TEST 110 
7000 037526 WORD TST111+2 ::STARTING ADDRESS OF TEST 111 
057002 040032 WORD TST112¢2 :: STARTING ADDRESS OF TEST 112 
057004 041424 WORD TST113+¢2 :iSTARTING ADDRESS OF TEST 113 
57006 043152 WORD TS7114+42 :; STARTING ADDRESS OF TEST 114 
057010 045332 WORD TST115+42 :;STARTING ADDRESS OF TEST 115 
057012 045712 .WORD 15711642 :: STARTING ADDRESS OF TEST 116 
057014 050072 WORD TST117#2 ::STARTING ADDRESS OF TEST 117 
057016 052360 WORD TST120+2 + STARTING ADDRESS OF TEST 120 


LOL EL I EI EE OD EA 8 OS TS EN EL ET NT me ae en 


057020 


057244 
057246 


057260 
057262 


105037 


000002 
012637 
022737 
001420 


105037 
032777 
001004 
004737 


_ CZRMPBO RMO5/3/2 DSKLS TST 1 
_ ERROR HANDLER ROUTINE 


057412 
001117 


000177 
057412 
177777 
000004 
057162 
177766 


177777 
057176 


000004 
177777 
000001 
000001 
001130 
000177 
057412 
020000 
057414 


I 
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057410 
000004 
057410 


057410 


057410 
057410 


001150 


121674 


.SBTTL ERROR HANDLER ROUTINE 


MARRARBRAARARARESRAARAASRARRARRRRRSRRERRRR RRR RRR RRR RRR RRR RRR RE RES ERS SE SE SE 


SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: RROR ITEM arn” 


SERROR: : 


7$: 


1000$: 


1001$: 
1002$: 


1003$: 
1004$: 


AND THE ADDRESS OF THE ERROR CALL 


T ON 
INHIBIT ERROR TYPEOUTS 
ON ERROR 


BELL 

LOOP ON ERROR 

N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

IBSAVE ah Cae THE ITEM BYTE SAVE LOCATION 
FOR ho IN SOF T-SwWk 

SERFLG ESET. THE ERROR FLAG 

7$ ;DCN'T LET THE FLAG GO TO ZERO 


STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 
RROR? 


AND ERROR FLAG 


#B1T10,aSWR ;;BELL ON E 

1$ :3NO = SKIP 

, SBELL ;;RING BELL 

SERTTL ;;COUNT THE NUMBER OF ERRORS 
Sober ;;GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#BITO9,aSwR +3 SEE 4 LOOP ON ERROR IS SET 

004 H AROUND I 


1 
#177 ,SITEMB 


ROUTINE IF SO 
3 ISEE IF THIS IS THE POWER FAIL CALL 


1004$ H AROUND ROUTINE IF IT IS 
least 3 ISEE IF Gig Sy THE 2ND ERROR CALL IN THIS ROUTINE 
fons. 3 SEE iF F CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 


#10008, ERRVEC ;;SETUP ° 
177766. »-CPSAVE ;;MOVE C 


F SO 
: SAVE CONTENTS OF ERROR VECTOR 
TRAP* RETURN ADDRESS 
PU ERROR REGISTER TO CPSAVE FOR TEST 


C,-(SP) 


#~1, CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
#1001$, (SP) >: SETUP RETURN ADDRESS 

(SP)+,ERRVEC  ::RESTORE CONTENTS OF ERROR VECTOR 

#-1, CPSAVE ::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
1004$ : 3BRANCH IF SO 

WBITOO.CPSAVE ::SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
#81100, 177766 ;3CLEAR THE BIT FOUND SET 

SITEMB.IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CAL 
#177,$1TEMB “SET SITEMB TO SPECIAL POWES FAIL POINTER 

1004$ ’ BRANCH OVER IBSAVE CLEARING 

IBSAVE ::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
#BIT13.aSWR ::SKIP TYPEOUT IF SET 


PC,ERRTYP 





>: SKIP TYPEQUTS 
::GO TO USER ERROR ROUTINE 


CZ7RMPBO 8MOS/3/2 DSKLS 


' ERROR HANDLER ROUTINE 


057410 
057412 


104401 
122737 
001007 


113737 
004737 
000 


000777 
105737 
001005 
005777 
100002 
000000 
104410 


032777 
001402 
001402 
013716 
022737 
001601 
105737 
001210 
000002 


000000 
000000 


TST 1 


001217 
000001 


001130 
062556 


057412 
121622 


001090 


001124 
001210 


001210 
654020 


057412 


J 
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001242 
057314 


121606 


000042 


20$: 


21$: 


22$: 
2$: 


3$: 


4$: 


5$: 


6$: 


CPSAVE : 
IBSAVE : 


TYPE 


HALT 
TSTB 
BNE 


RTI 
. WORD 
. WORD 


.SCRLF 

MAPTENV, SENV 

$1TEMB,21$ 
SATY4S 


> hla ent 
SLPERR, (SP) 
_ 
SESCAPE , (SP) 
ASENDAD , #42 
6$ 


IBSAVE 
7$ 


0 
0 


: RUNNING IN APT MODE 
; 3NO SkIP APT ERROR REPORT 

“SET ITEM NUMBER AS ERROR NUMBER 
::REPORT FATAL ERROR TO APT 


sAPT ERROR LOOP 
SEE IF IBSAVE IS LOADED 
eT cnt dl - NO HALT ON PWR MON BIT ERROR 


$4 ON f 
;; TEST FOR CHANGE IN SOF T-SWR 


+ LOOP ON ERROR SWITCH SET? 
:BR_ IF NO 

:;FUDGE RETURN FOR LOOPING 

toe IF FOR AN ESCAPE ADDRESS 

:ZFUDGE RETURN ADDRESS FOR ESCAPE 


;zACT-11 AUTO-ACCEPT? 
CH IF NO 


- 


;zSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
;;BRANCH BACK TO CALL ORIGINAL ERROR 


7 ;RETURN 
:;LOCATION TO SAVE CPU ERROR REG CONTENTS 
;z;LOCATION TO SAVE ITEM BYTE 


— CZRMPBO RMO5/3/2 DSKLS TST 1 


057414 


057426 


57432 
057436 
057442 


057446 
057450 
057451 


MO ODWNAUILS WYO DONOWMPWY 


25 057452 
26 


32 057502 
33 057510 
ze 057514 


3 

36 057516 
37 057524 
38 0 


41 057540 
42 


43 
44 057542 
45 057546 
46 057554 
47 057560 
057564 
057566 
057567 
48 057570 
49 057574 


ERROR TYPEOUT ROUTINE 


104414 


104401 

01 
013746 
104403 


042 

012737 
022700 
001414 


012737 


012737 
022700 
004 


013746 
104403 
003 


000 
005037 
113737 


020000 
060254 


001217 
060270 
001234 


060262 
001130 


.. 2 
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.SBTTL ERROR TYPEOUT ROUTINE 


;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
s *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


.UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND 
: sPROGRAM COUNTER ARE PRINTED ON THE FIRST LINE; 
MESSAGE 1S ASSEMBLED, FORMATTED AND PRINTED ON 


. ERROR 
:*ONE OR MORE SUCCEEDING 


LINES; 
ED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 


.PAIR 
RAFTER THE ERROR MESSAGE. 


ERRTYP: SAVREG 
121530 BIT #SW13,aSWR 
BEQ 1$ 
JMP 27% 


; TYPE UNIT NUMBER, DRIVE TYPE, 
;PROGRAM COUNTER 
i$: TYPE . SCRLF 

TYPE “ERTYOO 

MOV 


$UNIT,-(SP) 
TYPOS 
BYTE 3 
-BYTE 0 


; INHIBIT TYPEOUTS?? 

;NO!! 

sVES?! 

TEST NUMBER, ERROR NUMBER, AND 


; TYPE ‘DRVA"’ 
Z;SAVE SUNIT FOR TYPEOUT 
23 TYPE DRIVE NUMBER 
TYPE--OCTAL ASCII 
I TYPE 3 DIGIT(S) 
; SUPPRESS LEADING ZEROS 


3 TYPE be ag TYPE’ RMOS, RMO3 OR Aa FOR UNIT UNDER TEST 


SE, :GET RM BASE ADDRESS 
MOV RMDT (RO) ,RO “GET DRIVE TYPE REGISTER 
BIC #177740.R0 “SAVE DRIVE TYPE BITS AND 
057540 MOV #SRMO3, 3$ :GET ASCII DRIVE TYPE 
CMP #24,RO 31S DEVICE AN RMO3 ? 
BEQ 2$ YES 
057540 MOV #SRMO2, 38 :SAVE ASCII DRIVE TYPE 
CMP #25,RO *I1S DEVICE AN RMO2 ? 
BEO 2$ YES !! 
057540 MOV ASRMOS , 3S ;SAVE ASCII DRIVE TYPE 
CMP #27,RO 1S DEVICE AN RMOS ? 
BNE :NO_! 
2$: TYPE  ERTYOS Rag 08 
TYPE :TYPE DRIVE TYPE 
3$: .WORD 0 “DRIVE TYPE MESSAGE IS STORED HERE 
: TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
L$: CLR TSTNMB *LOAD TEST NUMBER FOR 
060260 may STESTN, TSTNMB 
TYPE RTYO1 : TYPE '"TST# 
MOV TSTNMB,-(SP) ::SAVE Lb a EOR. TYPEQUT 
i: TYPE TEST 
TYPOS *:G60 T YRE--OCTAL ASCII 
‘BYTE 3 S:TYPE 3 DIGIT(S) _ 
"BYTE O *: SUPPRESS LEADING 2EROS 
CLR ERRNMB “LOAD ERROR NUMBE: OR 
060262 MOVB  $iTEMB,ERRNMB :TYPEOUT 





+ re me ee em eee eee oe |; 


SEQ 0244 


| C2 
| ER 


tert eet ceteris 
=— —— eee ee - 2 oe «ase 


50 057602 
51 057604 
S2 057610 


057614 


59 057642 
60 
61 057646 
2 057652 
63 057656 
64 057662 
65 057666 
66 057672 
67 057674 


73 057714 
74 
75 057716 
76 


84 0 0 
85 957744 
86 46 


RMPBO RMOS/3/2 DSKLS 
ROR TYPEOUT ROUTINE 


001406 
104401 
013746 
104403 

003 

000 
104401 
013746 
104403 

006 


001 


300 
062700 
011001 


001507 


012102 


TST 1 


060305 
060262 


060314 
001132 


001532 


060072 
060264 
000015 
060267 
000012 
000011 
060267 
000007 


060267 
000040 


ze 
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060267 


S$: 


7$: 


8$: 


9$: 


11$: 


12$: 


13$: 


14$: 


BEQ 


ERTYO2 
ERRNMB , = (SP) 
3 


ERTYO3 
SERRPC,=(SP) 


#PFECH,RO 
9$ 


RO 
RO 


RO 
#SERRTB-8. ,RO 
(RO) ,R1 


19$ 


CHRCNT 
#7 ,CHRCNT 


13$ 





;SKIP IF NO ERROR CALLED 
; TYPE "'ERRA’ 
i i SAVE ERRNMB Ned 


DI S) 

1 “g Tere LEADING ZEROS 
$1 SAVE SERRPC FOR TYPENUT 
E PROGRAM COUNTER 

760 Seat ce ASCII 


s:TYPE 6 DIGIT(S) 
:2TYPE LEADING ZEROS 


; GENERATE ‘aia TO ERROR ain UNLESS ERROR NUMBER IS 0 
6$: TST ERRNMB 


WAS AN ERROR CALLED? 
IF Hi 

NO--EXIT 

eserves CRLF 


OF 
SEE c gg ERROR CALL IS SPECIAL POWER FAIL CALL 
“MOVE POWER FAIL ERROR CALL TABLE TO RO 
;FOUR ENTRIES IN ERROR 
TABLE 


:R1_ POINTS TO ERROR MESSAGE 
“BRANCH IF NO ERROR MESSAGE 


:R2=ADDRESS OF MESSAGE STRING 
;BRANCH IF END OF MESSAGE 
;LOAD ADDRESS OF STRING 
;CLEAR BOT ADDRESS 

END OF STRING?? 


YES! : 
3 CARRIAGE RETURN?? 


‘YES@CLEAR CHAR COUNT 
:GET NEXT CHARACTER 
;LINE FEED?? 

:YES-GET NEXT CHARACTER 
; HORI ZONT AL TAB?? 


ZADJUST CHARACTER COUNT 


; INCREMENT CHARACTER COUNT 
SPACE ?? 


Se ee. rN tt ee ee ee ee mek 


SEQ 0245 


ROR 


— ee te eee 
— ee -_——— 


20 


o 


3 


e 


ab ad wad and wd ab ad a oe 
ENANSVEVS 


os 


URWNVSSHVARARAWA=SSRLFARALLSS 
a8 BBs 
RS Ny 


SES SSSRRERE 


N 
ee 
RS 


SE 8 
Sk FE 


060172 


RARAYSS SS 


w] 
™N 


Cee ee ee eed ee ee ee Pe LL ee eee eee ee 


* 
oOvw 
2 


55 060252 


RMPBO RMO5/3/2 DSKLS 
TYPEOQUT ROUTINE 


010237 


TST 1 


060264 
000100 


001217 


060322 
001217 


Mm 3 
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060267 


060266 


MOV R2,ROTADR 
15$: CMPB #64. ,CHRCNT 
BHIS ‘11 

MOV BOTADR,R4 
BNE 16$ 
TYPE /SCRLF 
CLRB = CHRCNT 
MOV 18$,R2 
BR 11$ 
16$: CLRB 2s = (RG) 
VB Ps ,BOTFLG 
17$: TYPE 
18$: 
TSTB ~—- BOTFLG 
BEQ 10$ 
TYPE /$CRLF 
CLRB =—«- BOTFLG 
CLRB —s- CHRCNT 
MOV BOTADR,R2 
MOV R2,18$ 
MOVB = #5 =(R2) 
TSTB —s_« (RJ + 
1$ 
i TYPE ERROR HEADER AND ERROR DATA 
MOV 2(RO), 
BEQ 2 
TYPE -SCRLF 
MOV 4(RO) -R 
MOV 6(RO).R 
20$: MOV (R1)+.21$ 
BEQ 27$ 
TYPE 
218: » WORD 
TYPE SSCRLF 
TST R2 
BEO 20% 
MOV (R2)+,R4 
MOV (R3)+,R5 
22$: TSTB —s-« (R'5) + 
BMI 24$ 
BEQ 23$ 
MOV a(R4)+,-(SP) 
TYPDS 
BR 25$ 
23$: MOV a(R4)+,-(SP) 
TYPOC 
25$ 
24$: V a(R4)+,-(SP) 
TYPBN 
258: TST (R4) 
BEQ 26$ 
TYPE ERTYO4 
BR 
26$: TYPE SCRLF 
R 20$ 





{SAVE ADDRESS OF SPACE 
SEND OF LINE?? 
ZNO! ! 


;GET ADDRESS OF LAST SPACE 
BRANCH i SPACE DETECTED 


“CLEAR CHARACTER COUNT 
‘SET UP R2 FOR TESTING 
sREPLACE SPACE 
;SET BOT FLAG 

RROR MESSAGE STRING 


TYPE E 
;STRING ADDRESS GOES HERE 
;WAS , STRING TRUNCATED??? 


:VES-TYPE CRLF 


sRESTORE R2 
: TYPE REST OF STRING 


:R1 a TC ERROR HEADER TABLE 
;BRANCH IF NO HEADER 


; (ASSUME NO DATA) 
:R2 POINTS TO DATA ADDRESS TABLE 
;R3 POINTS TO FORMAT TABLE 
:PUT HEADER ADDRESS FOR TYPE 
;BRANCH IF END OF HEADERS 
; (ASSUME END OF DATA) 


;HEADER ADDRESS GOES HERE 

tent WITH HEADER?? 

:R4 POINTS TO DATA ADDRESS 
FORMAT 


:R5 POINTS TO 
[WHAT KIND OF DATA?? 
NARY 


Ot DATA?? 
: YES~TYPE 2 SPACES 
CONT INUE 


TYPE ONE BLANK LINE 
;BEFORE NEXT HEADER 


LEE OE A TT I A Ma Hi os 


SEQ 0246 


_—_—_- —--- Se = ee ee ee - — ae ee oe ee ee ee ee _—-—- 


| 


N 3 
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80 060450 057410 000000 «WORD CPSAVE,0 
81 060454 060456 PFECH4: .+ 
82 060456 000 000 -BYTE 0,0 


ERROR TYPEQUT ROUTINE SEQ 0247 
156 060254 104415 27$: —- RESREG 
137 060256 000207 RTS PC 
159 060260 000000 TSTNMB: .WORD 0 : TEST NUMBER 
169 060262 000000 ERRNMB: .WORD 0 “ERROR NUMBER 
16; 060264 000000 BOTADR: 0 “BEGINNING OF TEXT ADDRESS 
162 0602 000 BOTFLG: .BYTE 0 “BOT FLAG 
163 060267 000 CHRCNT: .BYTE 0 “CHARACTER COUNT 
165 060270 104 122 126 ERTYOO: .ASCIZ aDRVvea 
166 060275 054 040 124 ERTYO1: .ASCIZ @, TEST#A 
167 060305 054 040 105 ERTYO2: .ASCIZ a, ERRMA 
168 060314 054 120 ERTYO3: .ASCIZ @, PC=a 
169 060322 040 040 000 ERTY04: .ASCIZ @ @ 
17 060325 040 055 040 ERTYOS -ASCIZ @-@ 
172 060332 060342 060430 060446 PFECH: PFECH1,PFECH2,PFECH3,PFECH4 ;WORDS DEFINING TABLES BELOW 
173 060342 060346 000000 PFECH1: .+4, 
12% 060346 120 117 127 -ASCI7 2?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
176 060430 060434 000000 PFECH2: .+4,0 
177 060434 103 120 125 “ASCIZ ?CPUERREG? 
178 EVEN 
179 060446 060450 PFECH3: .+2 


a SS eS es eee SS Ws ss >a -sN--= rs-~eh-i- 


| i RMPBO gt ts DSKLS 


INPUT 
1 


64 
060466 


060467 


117746 


001007 
eg i) 


022737 
001004 
104401 


TST 1 


000003 


061666 
060470 


061730 
000007 


000176 


000001 
001212 
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060462 
060464 
000060 
000062 
120422 


001154 


060460 


~SBTTL TTY INPUT ROUTINE 


Pl ella RelieRe Rete Relitale le Retelatale ie telieieieietetaheleleieietetetelelelelcleieicieletchcteteicialieicicieleleleleiel 


EVEN 
:*TK INITIALIZE ROUTINE 


3 ;NUMBER OF iTEMS IN QUEUE 
32, INPUT POINTER 


;;OUTPUT POINTER 


E 
:iTTY KEYBOARD QUEUE 


:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


SeCALL: 
:® JSR PC,STKINT 
a RE TURN 


STKINT: CLR STKCNT 

MOV #STKQSRT, STKQIN ; 
IN, $TKQOUT 

MOV WSTKSRV , @ATKVEC 


MOV #200, a#TKVEC+2 
TST a$TkB 

MOV #100, a$TKS 

RTS PC 


:*TK SERVICE ROUTINE 
s*THIS ROUTINE WILL SERVICE THE 


; THE QUEUE. 
:*1F THE CHARACTER IS A 


“HHENABLET 


;;CLEAR COUNT OF ITEMS IN QUEUE 

SMOVE THE STARTING ADDRESS OF THE 
;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
le eve :~ KEYBOARD VECTOR 


:: AR DONE FLAG 
Y KEYBOARD INTERRUPT 
+ =RETURN 10 CALLER 


TTY KEYBOARD IN 


TERRUPT 
THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
A *"CONTROL=C** (*C) STKINT IS CALLED 


AND 
:*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C** RESTART ADDRESS (SHUT) 


bia MOVB  aSTKS,-(SP) 
BIC #90177, (SP) 


CMP (SP) , #$XON 
30S 


BNE 
TST (SP)+ 
RT] 

30$: 
CMP (SP) 43 
BNE 1$ 
TYPE -SCNTILC 
JSR PC ,STKINT 
TST (SP) + 
JMP SHUT 

1$ CMP (SP) #7 
BNE 2$ 
CMP ASWREG, SWR 
BEQ 6$ 


CMP “gp -stKcet 
, $BELL 





:zPICKUP THE CHARACTER 
orn THE JUNK 
siiS IT A a" XON? 


H IF NO 
CLEAN RANDOM XON OFF STACK 


e215 IT A CONTROL C? 
CH IF 


°C 
315 IT A CON 


BRANCH IF NO 
::1S SOFT-SWR SELECTED? 
::GO0 TO SWR CHANGE 


z::I1S THE QUEUE FULL? 
:;BRANCH IF NO 
::RING THE TTY BELL 


OS EL . 


SEQ 0245 


_ CZ2RMPBO RMOS/3/2 DSKLS 
_ TTY INPUT ROUTINE 


022737 


123727 


TST 1 


000023 
120302 
120274 
120270 
177600 
000021 


000100 


0001 76 
120154 


120150 
177600 
000007 


001150 


060470 
120112 
000001 


061700 — 


061705 
000176 
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TST (SP) + :zCLEAN CHARACTER OFF OF STACK 
BR 5$ scEXIT 
3$ CMP (SP) ,#23 ::1$ IT A CONTROL-S? 
BNE 32$ + BRANCH IF NO 
CLR a$TKS DISABLE TTY KEYBOARD INTERRUPTS 
TST (SP) +4 :: CLEAN CHAR STACK 
3i$ TSTB ~=—s_ @STKS +: WAIT A 
BPL 1$ *:LOOP UNTIL ITS THERE 
MOVB  @$TKB,-(SP) 7:GET THE CHARACTER 
BIC 40177, (SP) : MAKE It 7-BIT ASCII 
CMP (SP)+,#21 :1S IT A CONTROL-O 
BNE 31$ +: CH IF NO 
120246 MOV #100, a$TKS : :REENABLE TTY KEYBOARD INTERRUPTS 
32$: INC $TKCNT *:COUNT THIS CHARACTER 
CMP (SP) #140 :31S IT UPPER CASE? 
BLT CH IF YES 
CMP (SP) #175 *:1$ IT A SPECIAL CHAR? 
BGT 4$ : BRANCH IF YES 
BIC #40, (SP) s:MAKE IT UPPER CASE 
4$: MOVB  (SP)+,a@$TKQIN ::AND PUT IT IN QUE 
INC TKQIN : UPDATE THE POINTER 
060467 CMP STKQIN,#STKQEND ::GO OFF THE E 
BNE ; ;BRANCH IF NO 
060462 MOV #STKQSRT,STKQIN ;;RESET THE POINTER 
5$: RTI 7 RETURN 


fF AAA A AAA AERAKAAAKEEAEAAEKAEAAEEEREEERKEEEEEREEEREEEREEKEREEE 


: SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
THE TRAP 


: *ROUTINE IS ENTE we F ROM 
:*SERVICE THE TEST 
;*CALL WHEN 

001154 $CKSWR: CMP 


BNE 1 
TSTB Na 
BPL 


15$ 
MOVB a$TKB,-(SP) 
BIC #°C177. (SP) 
CMP (SP) #7 
BNE 2$ 


HANDLER, AND WILL 
TWARE SWITCH REGISTER TRAP 


FOR CHANGE IN SOF 
mata fo IN TTY maar: MODE . 
#SWREG , SWR 


THE SOFT-SWR SELECTED 
T IF NOT 


S IMAKE IT /7-BIT ASCII 
:2IS IT A CONTROL-G? 
ceiF eats PUT IT IN THE TTY QUEUE 


J EEE AAAAARAAAAEARAARAAAATAAAEARERAAAAAAARAAAKEAEARAAEAAEAAKRERAEREEREEE 


* *CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY ree wt SERVICE 
ROM THE SOF 


: *ROUTINE OR F 


000001 
BEQ 
TST (SP) + 
JSR PC ,STKINT 
CLR KS 
001151 MO #1, $INTAG 


TYPE -SCNTLG 
$GTSWR: TYPE ° 
SWREG , = (SP) 


> *CONTROL-G BEING TYPED, AND THE 
6$: CMPB SAUTOB, #1 


TWARE a iy REGISTER TRAP C 


ALL. AS A RESULT OF A 
OFTWARE SWITCH REGISTER BEING SELECTED. 
WE RUNNING IN AUTO-MODE? 

; sBRANCH IF YES 

:CLEAR CONTROL-G OFF STACK 
: FLUSH as ys INPUT QUEUE 

:DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUP! MODE INDICATOR 


+ sECHO THE CONTROL-G (“G) 
; TYPE CURRENT CONTENTS 
::SAVE SWREG FOR TYPEOQUT 
3:GO TYPE=--OCTAL ASCIICALL DIGITS) 


SEQ 0249 


LETTE 
ne ees eee anne iia 
——— oan a 


_— 


BEBE BR BE 
HORS RO & 


061136 


CZ7RMPBO ae DSKLS 
fy INPUT ROUTI 


104401 
005046 
005046 
105777 
100375 


117746 
042716 


021627 


TST 1 


061716 


000015 
000004 
000002 


000006 
001217 
001151 


000100 
055756 
000060 


000067 


000060 
000002 


000002 
177776 
001216 
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000001 
120004 


117732 


000001 
117710 





19$: CLR 


C 
7$: TSTB 
BP 


20$: ADD 
BR 


15$: RTI 
16$: JSR 


17$: INC 


18$: TYPE 


BR 
-DSABL LSB 


» SMNEW 
-(SP) 
~ (SP) 
a$TKS 
7$ 


@$TKB,-(SP) 
#°C177, (SP) 
(S?) #3 

9$ 

,SCNTLC 
#6,SP 
SINTAG, 41 
#100, a$TKS 
SHUT 


* 


) 
~2(SP), (SP) 
7$ 


SQUES 
20$ 


: «PROMPT FOR NEW SWR 
; CLEAR COUNTER 

3 THE NEW SWR 
iCHAR THERE? 

:;1F NOT TRY AGAIN 


;sPICK UP CHAR 
3sMAKE IT 7-BIT ASCII 


3:18 IT A CONTROL-C? 
3 ¢BRANCH IF NOT 

:-YES, ECHO = (*C) 

;;CLEAN UP STACK 

i tr oge KEYBOARD INTERRUPTS? 


33 NO 
;;ALLOW TTY KEYBOARD INTERRUPTS 
3; CONTROL=C RESTART 
e215 IT A CONTROL-U? 
CH IF NOT 
si YES, ECHO CONTROL=<U (*U) 
E PREVIOUS INPUT 
>:LET’ S TRY IT AGAIN 
315 IT A <CR>? 
;BRANCH IF NO 
33 VES. IS IT THE FIRST CHAR? 
: BRANCH IF YES 
7 ;SAVE NEW SWR 
;: CLEAR UP STACK 
+ sECHO <CR> AND <LF 
es $e tg 5 aay KBD INTERRUPTS? 


H IF NO 
3 TRE-ENABLE TTY KBD INTERRUPTS 


P-OFF ASCII 

as tee CHAR 
;;NO, SHIFT PRESENT 

zz CHAR OVER TO MAKE 

0 St OR NEW ONE 


>: TYPE ?<CR><LF> 
sz SIMULATE CONTROL-U 


SL AAAARAAAAAAARARARARAAAAAERERAERAAAEAAAARERARAARAARARAH RARER KAEK ERR ERS 


SEQ 0250 


ee ee ee o—= ~ 


E 4 
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| TTY INPUT ROUTINE SEQ 0251 


ig ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

‘*® 

+t RDCHR 3;GET A CHARACTER FROM THE QUEUE 
:9 RETURN HERE 37 CHARACTER IS ON THE STACK 

;* iiWITH PARITY BIT STRIPPED OFF 


061332 011646 $SRDCHR: MOV (SP) ,=(S : PUSH DOWN THE PC AND 
061334 016666 000004 000002 MOV 4( SP) “3Rs «°THE PS 
061342 005066 000004 CLR 4(3 *:GET READY FOR A CHARACTER 
061346 005046 CLR ; =PUT NEW PS ON STACK 
061350 012746 061356 MOV 9628,=(SP) *:PUT NEW PC ON STACK 
061354 000002 RTI *=:POP NEW PC AND PS 
061356 648: 
061356 005737 060460 1$: TST STKCNT ::WAIT ON A CHARACTER 
061362 001775 BEQ 1$ 
061364 005337 060460 DEC $TKCNT :DECREMENT THE COUNTER 
061370 117766 177070 000004 MOVB  a$TKQOUT.4(SP) <:GET ONE CHARACTER 
061376 005237 060464 iNC $TKQOUT * [UPDATE THE POINTER 
661402 023727 060464 060467 CMP $TKQOUT ,ASTKQEND 3gDID iT co OFF OF THE END? 
061410 001003 BNE 2 -:BRANCH IF NO 
061412 012737 060466 060464 MOV WSTKOSRT ,STKQOUT™ + RESET THE POINTER 
061420 000002 28: RT! » RETURN 
FEA AAAARAAAAAAAAAHAAAAAEAAREEHERAAEAAERAAEAAERARAEREREEREEEKERHEHEEE 
gSTHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
:* RDLIN zz INPUT _A STRING FROM THE TTY 
:* RETURN HERE SADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
:* >: TERMINATOR WILL BE A BYTE OF ALL O'S 
061422 010346 $RDLIN: MOV R3.-(SP) 225A 
061424 005046 CLR ~(§P) >:CLEAR THE RUBOUT KEY 
061426 012703 061656 1$: MOV ASTTYIN,R3 7:GET ADDRESS 
061432 022703 061666 2$: CMP MSTTYIN¢B.,R3 BUFFER FULL? 
101456 BLOS 4$ 7;;BR IF YES 
061440 104411 RDCHR >:GO READ ONE CHARACTER FROM THE TTY 
061442 112613 MOVB (SP)+, (R3) *:GET CHARACTER 
061444 122713 000177 10$:  CMPB = #177, (R3) ::IS ITA 
061450 001022 BNE 5$ >:BR IF NO 
061452 005716 TST (SP) *:]$ THIS THE FIRST RUBOUT? 
061454 001007 BNE 6$ ::BR IF NO 
061456 112737 000134 061654 MOVB = #"\ 98 >: TYPE A BACK SLASH 
061464 104401 061654 TYPE —s 
061470 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
061474 005303 6$: DEC R3 ::BACKUP BY ONE 
061476 020327 061656 CMP R3,ASTTYIN >:STACK EMPTY? 
061502 103434 BLO 4$ ::BR IF YES 
061504 111337 061654 MOVB _ (R3),9% :# SETUP TO TYPEOQUT THE DELETED CHAR. 
061510 104401 061654 TYPE 9$ ::GO TYPE 
061514 000746 BR 2$ >:GO READ ANOTHER CHAR. 
061516 005716 5$: TST (SP) :=RUBOUT KEY SET? 
061520 001406 BEQ 7$ >:BR IF NO 
061522 112737 000134 061654 MOVB = #'\ 98 >: TYPE A BACK SLASH 
061530 104401 061654 TYPE ,9$ 
061534 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
061536 122713 000025 7$: (MPR so #25, (R3) =: 1S CHARACTER A CTRL U? 
061542 001003 BNE 8$ :BR IF NO 





——EEE— 
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_ TTY INPUT ROUTINE 


061673 
000022 
001217 
061656 
001216 


177777 
001220 


061656 


re nr meee i ee ee ee ee we 
_ LLL LLL NE OE ET CL ew 
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TYPE $CNTLU 


8$: CMPB #22,(R3) 
BNE 3$ 
CLRB (R3) 
TYPE -$CRLF 
TYPE $TTYIN 
BR $ 

4$: TYPE , SQUES 


3$: MOVB (R3) ,9$ 
TYPE P 
CMPB #15, (R3)+ 
BNE 2$ 
CLRB -1(R3) 
TYPE SF +i TYPE A LINE F 
TST (SP) + LEAN 
MOV (SP)+,R3 it RESTORE R 
MOV (SP) ,=-(SP) 
000002 MOV 4(SP), 2 (SP) 33 
000004 any #STTYIN, 4(SP) 
9$: -BYTE O 
BYTE O 77 TERMINA 
015 $CNTLC: .ASCIZ /*€/<15><12> 
015 $CNTLU: .ASCIZ /*U/<15><12> +: CONTROL 
015 $CNTLG: .ASCIZ /*G/<15><12> Pr ostiteuas 
123 SMSWR: .ASCIZ <15><12>/SwWR = 
116 W:. .ASCIZ / NEW = / 
-EVEN 
SHUT TST ars2 
BNE 1$ ; 
JMP START 5 
1$ CLR SDE VM 
JMP SEOP : 


3; TYPE A CONTROL ‘U"’ 
BR 1$ 33GO START OVER 

eI gay A ''*R'"? 
CLEAR THE PHAR TER 


SPE THE INPUT STRING 
0 pe a toe ANOTHER CHACTER 


BR 1$ CLEAR THE BUFFER AND LOOP 
;sECHO THE CHARACTER 


thy FOR gph oy 

7 CLEAR RETURN. see 15) 

“as al KEY FROM THE STACK 

¢ sADJUST THE STACK AND PUT ADDRESS OF THE 

FIRST ASCII CHARACTER ON IT 
RETURN 

“ TSTORAGE By ASCII CHAR. TO TYPE 

$STTYIN: .BLKB 8 ‘CONTROL 'C 8 BYTES FOR TTY INPUT 


sANY MONITOR PRESENT ? 
;BR IF YES 


SEQ O25¢ 


ae ee eee 
rrr rrr: tere ttre erent stessssttesnteeeseeeenentinecesiccmineten caer cee 


CZRMPBO RMO5/3/2 DSKLS TST 1 


4 
‘ 


011646 


900004 000002 


177770 


000012 
062052 


. SBTTL 


**CALL: 


$RDOCT: 


1$: 


2$: 


3$: 


SHIOCT: 


G 4 
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READ AN OCTAL NUMBER FROM THE TTY 


READ AN OCTAL NUMBER FROM THE TTY 


SERRATE TERT ETRE ee 
:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
>*CHANGE IT TO BINARY. 


RDOCT 
RETURN HERE 


(SP) ,=($P) 


4(SP) ,2(SP) 


RO,=(SP) 
R1,~-(SP) 
R2,-(SP) 


(SP)+,RO 
R1 


R2 
(RO) +,=(SP) 


#*C7, (SP) 
(SP)+,R1 


2$ 

(SP) + 
R1,12(SP) 
R2,$SHIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


0 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN $HIOCT 


;PROVIDE SPACE FOR THE 
NPUT NUMBER 


il 
: PUSH RO ON STACK 
3zPUSH R1 ON STACK 
33PUSH R2 ON STACK 
+ ¢READ AN ASCIZ LINE 
;;CLEAR DATA WORD 


;sPICKUP THIS CHARACTER 
self ZERO GET OUT 


::STRIP THE ASCII JUNK 
3:ADD_IN THIS DIGIT 


3;;LOOP 
:;CLEAN TERMINATOR FROM STACK 
: SAVE THE RESULT 


7:POP STACK INTO R2 
:;POP STACK INTO R1 
::POP STACK INTO RO 


: RETURN 
Z7HIGH ORDER BITS GO HERE 


LL IE LE AL OL LEE A I LT LN ts LN ETE Ne ti eat tle tl iy tte ti at te i tia i te tt. ata 


SEQ 0255 
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TRAP DECODER SEQ 0254 


-SBTTL TRAP DECODER 


BETTS IIIIIL ITT ITI TIT I TISTITIITII iti ttitiiiititititiiitiitiiti 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE iT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILi 

:*GO TO THAT ROUTINE. 


062054 016646 000002 $TRAP: MOV 2(SP) ,= (SP) +s ASSUME THE STATUS OF 
062060 042716 000020 BIC #20, (SP) és THE a NOT ALLOW 
062064 012746 062072 MOV #1$,-(SP) 3; T=BIT TRAPS 

062076 000002 RT] +3 SET THE NEW STATUS 
062072 010046 1$: MOV RO,=(SP) ; SAVE RO 

062074 016600 000002 MOV 2(SP) ,RO : GET TRAP ADDRESS 
062100 005740 TST -(RO) KUP BY 2 

062102 111000 MOVB (RO) ,RO ::GET RIGHT BYTE OF TRAP 
062104 (06300 ASL RO yee Mas. FOR INDEXING 
062106 016000 062126 MOV S$TRPAD(RO),RO ;; INDEX TO TABLE 

062112 000200 RTS RO :;GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


062114 011646 $TRAP2: MOV (SP) ,-(SP) ;zMOVE THE PC DOWN 
062116 016666 000004 000002 MOV 4(SP) ,2(SP) ;:MOVE THE PSW DOWN 
062124 000002 RTI RESTORE THE PSwW 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
>*BY THE ‘’TRAP** INSTRUCTION. 


: ROUT INE 
062126 062114 $TRPAD: .WORD $TRAP2 
062130 055544 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
062132 055342 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
062134 055316 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
062136 055356 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
062140 055072 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
062142 055016 STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
062144 061060 SGTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 
062146 060770 SCKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR 
062150 061332 SRDCHR ;;CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
062152 061422 SRDLIN ;;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
062154 061752 $RDOCT ;;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
062156 054722 S$SAVREG ::CALL=SAVREG TRAP+14(104414) SAVE RO-RS ROUTINE 
062160 054760 SRESREG ;;CALL=RESREG  TRAP+15(104415) RESTORE RO-RS ROUTINE 


TN Ne me LLL LLG LOGE LEE OL LO LEME ee EN ee ea ep ee al, 
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POWER DOWN AND UP ROUTINES SEQ 025% 
~SBTTL POWER DOWN AND UP ROUTINES 


BARBARA RARRRERRRARRRARRRR RR RRR ERE RRR RRR RRR RR RRR RRR RRR SRR SR SERRE RE 


BOWER DOWN ROUTINE 


062162 012737 062322 000024 $PWRDN: MOV WSILLUP, @#PWRVEC ;;SET FOR FAST UP 

062170 012737 000340 000026 MOV #340, AAPWRVEC +2 BRIO: :7 

062176 010644 MOV RO,=-(SP) ::PUSH RO ON STACK 

062200 010146 MOV R1,-(SP) **PUSH R1 ON STACK 

202 010246 MOV R2,-(SP) + :PUSH R2 ON STACK 

062204 010346 MOV R3,-(SP) : PUSH R3 ON STACK 
2206 010446 MOV R4,=(SP) **PUSH RG ON STACK 

062210 010546 MOV R5,-(SP) *:PUSH R5 ON STACK 

062212 017746 116736 MOV aSWR,=-(SP) *=PUSH @SWR ON STACK 

062216 010637 062326 MOV SP, SSAVRO +: SAVE SP 

062222 012737 062234 000024 MOV #SPWRUP ,a#PWRVEC :;SET UP VECTOR 

062230 000000 HAL T 

062232 000776 BR .-2 : HANG UP 


J CAAA AAA RARARAAAAAREAAEAEAAAAAAAAAEHAAAERAHEREREEEHR AETHER 


“POWER UP ROUTINE 
$PWRUP: MOV 


062234 012737 062322 000024 ASILLUP , a#PwRVEC So FAST DOWN 





062242 013706 062326 MOV $SAVR6, SP ;.GET 
062246 0050357 062526 CLR SSAVR6 ;zWAIT LOOP FOR THE TTY 
062252 005257 062526 1$: INC SSAVR6 :sWAIT FOR THE INC 
062256 001375 BNE 1$ WORD 
062260 012677 116670 MOV (SP) +, aSwWR ;3POP STACK INTO @SWR 
062264 012605 MOV (SP) +,R' 7sPOP STACK INTO R5 
062266 012604 MOV (SP) +,R4 zé STACK INTO R4 
062270 012603 MOV (SP)+,R3 3 STACK INTO R3 
012602 MOV (SP)+,R2 ;zPOP STACK iNTO R2 
062274 012601 MOV (SP)+,R1 Se STACK INTO R1 
062276 012600 MOV (SP)+,RO 33 STACK INTO RO 
062300 012737 062162 000024 MOV #SPWRDN , BA PWRVE C th UP THE POWER DOWN VECTOR 
062306 012737 000340 000026 MOV #340, aMPWRVEC+2 ;:PR oF 
062314 104401 TYPE “RePC T THE POWER FAILURE 
062316 062330 SPWRMG: .WORD S$POWER ; POWER FAIL MESSAGE POINTER 
062320 000002 RT] 
062522 000000 SILLUP: HALT 7: THE POWER UP SEQUENCE WAS STARTED 
062324 000776 BR ame 3; BEFORE THE POWER DOWN WAS COMPLETE 
062326 000000 $SAVR6: 0 :3PUT THE SP HERE 
062530 015 012 120 $POWER: 


ASCIZ <15><12>' POWER’ 
-EVEN 
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APT COMMUNICATIONS ROUTINE SEQ 0256 


~SBTTL APT COMMUNICATIONS ROUTINE 


> 2 ARR RRSARRRR RR RR RRR RARARARRRR RRR RR RR RRR RRR RRR RRR RR RRR ERR SER ERE SE SD 


062340 112737 000001 062604 $ATY1: MOVB #1,$FFLG ::T0 REPORT FATAL ERROR 
062346 112737 000001 062602 $ATY3: MOVB #1,$MFLG *:T0 TYPE A MESSAGE 
062354 000403 BR $ATYC 
062356 112737 000001 062604 SATYG MOVB #1,$FFLG ::T0 ONLY REPORT FATAL ERROR 
062364 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
2366 010146 MOV R1,-(SP) *=PUSH R1 ON STACK 
062370 105737 062602 TSTB = SMFLG ;;SHOULD TYPE A MESSAGE? 
062374 001450 BEQ NOT: 
376 122737 000001 001242 C(MPB  ~—s- WAPTENV, SENV ; {OPERATING UNDER APT? 
062404 001031 BNE NOT: BR 
132737 000100 001243 BITB § #APTSPOOL,SENVM i: SHOULD SPOOL MESSAGES? 
062414 001425 BEQ $ BR 
062416 017600 000004 MOV a4 (SP) RO GET MESSAGE ADDR. 
062422 062766 (00002 000004 ADD #2,4(SP) + BUMP RETURN ADDR. 
062430 005737 001222 1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
062434 001375 BNE 1$ *7IF NOT: WAIT 
062436 010037 001236 MOV RO. SMSGAD ::PUT ADDR IN MAILSOX 
062442 105720 2$: TSTB  ~—_ (RO) + ::FIND END OF MESSAGE 
062444 001376 BNE 2$ 
062446 163700 001236 SUB SMSGAD ,RO ::SUB START OF MESSAGE 
062452 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
062454 010037 001240 MOV RO, SMSGLGT “PUT LENGTH IN MAILBOX 
460 012737 000004 001222 MOV #4, SMSGTYPE STTELL APT TO TAKE MSG. 
062466 000413 BR 
062470 017637 000004 062514 38: MOV a4(SP).4$ ;;PUT MSG ADDR IN JSR LINKAGE 
062476 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
062504 013746 177776 MOV 177776, =(SP) : PUSH 199776 ON STACK 
062510 004737 055544 JSR PC, $TYPE >:CALL TYPE MACRO 
062514 000000 4$ .WORD 0 
062516 5$: 
062516 105737 062604 10$: TSTB ss SF FLG 3: SHOULD REPORT FATAL ERROR? 
062522 001416 BEQ 12$ *:I1F NOT: BR 
062524 005737 001242 TST SENV 3 RUNNING UNDER APT? 
062530 001413 BEQ 12$ NOT: 
062532 005737 001222 118: TST $MSGTYPE ; 7F INI SHED LAST MESSAGE? 
06 001375 BNE 11$ =:1F NOT: WAIT 
642540 017637 000004 001224 MOV @4(SP),$FATAL ::GET ERROR 2 
062546 062766 000002 000004 ADD #2,4(SP) --BUMP RETURN ADDR. 
062554 005237 001222 INC SMSGTYPE ::TELL APT TO TAKE ERROR 
062560 105037 062604 12$: CLRB =. SFFLG *>CLEAR FATAL FLAG 
062564 105037 062603 CLRB =—s SLFLG >: CLEAR LOG FLAG 
062570 105037 062602 CLRB = SMFLG >: CLEAR MESSAGE FLAG 
12601 MOV (SP)+,R1 33 STACK INTO R1 
062576 012600 (SP) +,RO STACK INTO RO 
000207 RTS c $3 
062602 000 SMFLG: .BYTE *:MESSG. FLAG 
062603 000 SLFLG: .BYTE 0O ::LOG FLAG 
062604 000 SFFLG: -BYTE 0 *:FATAL FLAG 
000200 APTSIZE = 200 
1 APTENV = 001 
000100 APTSPOOL= 100 
000040 APTCSUP = 040 
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Ss 


8 
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a oa I I IO 
~~ — A) — Nh) — iW ho SS NOL 


opener tery eo 
NNNNSSSO-2NAN= BIBRA HI50R 


eed sd od 2) 3 


—_d 
oO 


.SBTTL CONSOLE 
EQUALS: 
ALL: 


CNSLO7 


CNSLO8 


CNSLO9 


ASCIZ 
A 
A 


>>r>r>y 
ANNMNNMNMNMNNMNMNMNMNM 
AAOAAOAAOAIAIAAAAAOAAAAAAAABANANANAANANANANAO 


>>>>>>>d 


feng bee beng bene ne bent Rene Deeg Rees beg Reg be bee Pet ry Rd Re he Be ae Rn be a he Re Re eh be be 
PNG ne ne ee BB PB Bi BG Bi Be BB BS SI Be BI III III 





MESSAGES 
a=a 
@ALL@<CRLF > 
a@?a 


a, a 
<CRLF>@TYPE HELP TEXT (L) N? @ 
<CRLF >@RMCS1=a 

Selita e oe - LO= 160000, HI= 17XXXX@<CRLF > 


VEC=a 
@ LIMITS - LO= 0, HI= 1000@<CRLF><LF> 
<CRLF>@TYPE ‘'A'' TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)@ 
<CRLE>@AND TERMINATE INPUT WITH A CARRIAGE RETURN. a 
@ ?ILLEGAL INPUT@<CRLF > 
<CRLF>/DRIVE(S) TO BE TESTED/ 
/NONE / 
<CRLF2/DRIVE(S): / 
<CRLF>/UNIT STATUS: / 
/RMO2/ 
/RMO3/ 
/RMO5/ 
@ NOT AN RMOS/3/2a 


EL OE SR ee . 


SEQ 0257 


| CZRMPBO RMO5/3/2 DSKLS TST 1 
' FUNCTION CODE TABLE 


ee 


NAME WN OO OONOULP WI -2 


kee et od ad ot ot ot 


18 


5 
55 063416 


6 
57 063416 020000 
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.SBTTL FUNCTION CODE TABLE 


;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
:EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA = BIT 15_IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 


;1F ATA SHOULD BE SET WHEN THE FUNCTION CODE IS AN gh OTHERWISE, 
;BIT 15 + ry INDICATING fogyl ATA SHOULD NOT NORMALLY BE SET. 
sNOTE THA A MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:1T IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
‘IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI] = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OP] ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IvC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN Ae es CODE 
“IF WRITE ERRORS ARE ENABLED DURING THE Feet tae | T COMMAND. 
[THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE’’, ‘W “DPE. "we 


IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
COMMAND. THE ee ENABLED BY THIS BIT ARE “TRE’’, ‘DLT’, ‘NEM’, 
<OMXF’ eS ar + *"AOE'’. 
: BIT 08 IS NOT USED. 
HCE ~ BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 


IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
:HEADER ERRORS INCLUDE "'HCRC’', "HCE'’, ‘FER'', AND ‘BSE"’. 


ECH ~ BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION of THAT 
:COMMAND. THESE ERRORS INCLUDE 'MDPE’’, 'DCK'', AND ‘ECH' 


; BIT 05 IS NOT USED. 

; BIT 04 IS NOT USED. 

‘ BIT 03 IS NOT USED. 

‘ BIT O02 IS NOT USED. 

: BIT O01 IS NOT USED. 

; ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: sFUNCTION CODE TABLE 
«WORD OP] NOP 


SEQ 0258 


— 
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TION CODE TAB 


58 063420 
59 Oogess 


0 
87 063512 
88 063514 
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OPI !ATA!ILF i IVC 
ATA!OPI! IVC! IAE 
ATA!OPI! IVC 

OP] 


OPI! 1VC 

OPI !ATA! IVC 
OPI !ATA! IVC 
OP] 


OP] 

OPI !ATA!ILF SIVC ; 
OPI!ATA!ILF! IVC ; 
ATA! OPI!IVC!IAE ; 
OPI!ATA!ILF! IVC ; 
OPI!ATALILF!IVC ; 
OPI !ATA!ILF IVC ; 
OPI!ATA!ILF! IVC ; 
OPI !ATA!ILF i IVC ; 
OPI !ATALILF i IVC ; 
OPI !ATA!LILF! IVC 

WCE OPI: IVC < IAE« AOE - HCE - ECH 


Abbe Ow FUNCTION (2) 


:$ 
‘ RECALIBRATE 
:DRIVE CLEAR 


; RELEASE 
FSET 


; OF FSE 
;RETURN TO CENTERLINE 
PRESET 


; READ IN 


;PACK ACKNOWLEDGE 


er laratieiive AOE ! HCE! ECH i WRI 


C 
OPI! IVC! JAE! AOE !HCE!ECH 
OPI! JVC! IAE! AOE! HCE! ECH 
OPI !ATA!ILF ! IVC 
OPI !ATA!LILF ! IVC 


READ DA 


FUNCT ION 
FUNCTION 


; ILLEGAL 
;WRITE CHECK DAT 
TE CHECK HEADER AND DATA 
; ILLEGAL FUNCTION (54) 
; ILLEGAL FUNCTION (56) 
;WRITE DATA 
;WRITE HEADER AND DATA 
; ILLEGAL FUNCTION (64) 
; ILLEGAL FUNCTION (66) 


TA 
;READ HEADER AND DATA 


; ILLEGAL FUNCTION (74) 
; ILLEGAL FUNCTION (76) 


NO Oe es ee ee | ee. ee 6 ee ee 


SEQ 9259 
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| 
| ATTENTION (ATA) TABLE SEQ 0260 
| J .SBTTL ATTENTION (ATA) TABLE 
| 3 063516 001 ATNTBL: .BYTE 1. 

4 063517 002 .BYTE 2. 

5 063520 .BYTE 4, 

6 063521 010 .BYTE 8. 

? 063522 020 .BYTE 16. 

8 063523 040 .BYTE 32, 

9 06352 100 .BYTE 64, 

10 063525 200 .BYTE 128. 


a 


B 5 
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| DATA PATTERN TABLE SEQ 026i 


1 .SBTTL DATA PATTERN TABLE 
3 063526 RGDTPT: 
4 063526 MIXED: 
5 063526 000000 D 0. 
6 063530 000001 WORD 1. 
? 063532 000003 WORD 3. 
8 063534 000007 WORD 7, 
9 063536 000017 WORD 15, 
10 063540 000037 WORD 31. 
11 063542 000077 WORD 63. 
12 063544 000177 WORD 127. 
13 063546 000377 “WORD 255. 
14 063550 000777 “WORD 511. 
15 063552 001777 “WORD 1023. 
16 063554 003777 -WORD 2047. 
17 063556 007777 “WORD 4095. 
18 063560 017777 WORD 8191. 
19 063562 037777 “WORD 16383 
20 063564 077777 WORD 32767. 
21 063566 177777 ONES: .WORD 65535. 
22 063570 177777 WORD 65535. 
23 063572 077777 -WORD 32767. 
24 063574 037777 WORD 16383. 
25 063576 017777 -WORD 8191. 
063600 0077 WORD 4095. 
27 063602 003777 -WORD 2047. 
28 063604 001777 -WORD 1023. 
063606 00077 -WORD 511. 
30 063610 000377 -WORD 255, 
31 063612 000177 -WORD 127, 
32 063614 000077 WORD 63. 
33 063616 000037 -WORD 31. 
3620 000017 WORD 15. 
35 063622 000007 -WORD 7, 
3624 000003 -WORD 3. 
37 063626 000001 -WORD 1. 
3630 000000 ZEROS: .WORD 0. 
39 063632 000000 -WORD 0. 
40 063634 000001 “WORD 1. 
41 063636 000002 -WORD 2. 
42 063640 000004 -WORD 4. 
43 063642 000010 .WORD 8. 
44 063644 000020 -WORD 16. 
5 063646 000040 -WORD 32. 
46 063650 000100 WORD 64. 
47 063652 000200 “WORD 128. 
48 063654 000400 -WORD 256. 
49 063656 001000 WORD 512. 
3660 002000 WORD 1024. 
51 063662 004000 WORD 2048. 
52 063664 010000 WORD 4096. 
53 063666 020000 WORD 8192 
54 063670 040000 “WORD 16384 
55 063672 100000 -WORD 32768 


74 ; ; 
57 063676 040000 -WORD 16584. 





-_ 
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| DATA PATTERN TABLE SEQ 0262 


| 58 063700 020000 .WORD 8192. 
| 59 063702 010000 .WORD 4096. 
704 004000 WORD 2048 
| 61 063706 002000 WORD 1024 
| 62 063710 001000 . WORD 2 
63 063712 000400 -WORD 256 
| 063714 000200 .WORD 128 
65 063716 000100 .WORD 64 
063720 000040 .WORD 32 
67 063722 000020 .WORD 16 
68 063724 000010 .WORD 8 
63 063726 000004 .WORD 4 
70 063730 0600002 .WORD 2 
71 063732 000001 .WORD 1 
2 0637 000000 .WORD 0 
73 063736 177777 .WORD 65535. 
74 063740 177776 .WORD 65534 
75 063742 177774 .WORD 65532 
76 063744 177770 -WORD 65528 
77 063746 177760 .WORD 65520. 
78 063759 177740 -WORD 65504. 
79 063752 177700 .WORD 65472. 
80 063754 177 .WORD 65408. ; 
81 063756 177400 .WORD 65280. 
063760 177000 -WORD 65024. 
83 063762 176000 . WORD 512. 
84 063764 174000 . WORD 488. 
85 063766 170000 -WORD 61440. 
063770 160000 . WORD 7344. 
87 063772 140000 -WORD. 49152. 
063774 100000 . WORD 768. 
89 063776 000000 . WORD 4 
064000 000000 . WORD : 
91 064002 100000 . WORD 2768. 
2 064004 140000 -WORD 49152. 
3 064006 160000 «WORD 57344. 
94 064010 170000 -WORD 61440. 
95 064012 174000 . WORD 88. 
96 064014 176000 . WORD 512. 
97 064016 177000 .WORD 65024. 
98 064020 177400 . WORD 5280. 
99 064022 177600 . WORD 5408. 
100 064024 177700 .WORD 65472. 
101 064026 177740 . WORD 5504. 
102 064030 177760 -WORD 65520. 
103 064032 177770 -WORD 65528. 
04 064034 177774 .WORD 65532. 
105 064036 177776 «WORD 65534. 
040 177777 «WORD 65535. 
107 064042 125252 -WORD 43690. 
108 044 152525 .WORD  463690./2 
109 046 125252 . WORD 3690. 
110 064050 17777 «WORD 65535. 
111 064052 177776 «WORD 65534 
112 054 177775 -WORD 65533 
113 064056 177773 -WORD 65531 
114 177767 -WORD 65527 
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140 


064062 
064 


sREREIOE 


ENSRRNSOKENSARNSARARVOSRNVS 


177757 


177777 


pas TST 1 


ENRGDT: 


EVEN 


D 5 
MACRO V04.00 4=-APR=-81 01:24:25 PAGE 35-2 


PARED ANE VIAA AAAS O 


a= 


SEQ 0265 


e 3 
CZ7RMPBO RMO5S/3/2 DSKLS TST 1 MACRO V04.00 4=-APR=81 01:24:25 PAGE 36 
ERROR MESSAGE TABLE SEQ 0264 





é 
: 
2 
© © 
alo 
: 


000000 
47 064636 077316 077602 076624 EMT25: 
064644 101666 000000 
49 064652 077316 077406 076670 EMT26: EMS301,EMS306,EMS252, sagt hh EMS327,EMS254 
0 064666 101666 Eee 50 EN -EMS503, > le oEMS502 


Mv 
—o 
g 
oO 
ted oh 
SS 
Nm 
WAN 
—=MN 
NN 
o— 
NS 
Ons 
WO. 
NLA 
>) 


52 064704 077300 076670 EMT 27: FMS 300, EMS>5e" 
53 064710 102322 101666 000000 EMS511,EMS501,0 
54 064716 077300 076670 EMT30: EMS300 ,EMS252 


oEM 
EMS511,.EMS501,EMS504,0 
EMS300,EMS252. 
EMS511,€MS501,EMS503,0 


55 064722 102322 101666 102010 
56 064732 077300 076670 EMT31: 
57 064736 1023522 101666 101763 


1 .SBTTL ERROR MESSAGE TABLE 
3 064154 077300 06 000000 EMT1: .WORD &MS300.E 
4 064162 077316 077341 077366 EMT2: :WORD &MS301 “EHS303. EMS303,EMS1.EMS 304 
5 064174 102322 101525 101666 WORD EMS 911 .£ MS300, EMS 501.EMS502,EMS503,0 
6 064210 077316 077406 077341 EMT3: .WORD £&MS301 "EMS “EM 
7 064216 102322 102043 101666 “WORD EMSs 11. EM $505 .EMS501 .EMS502, 0 
8 064230 077300 0773841 077422 EMT4: WORD £&MS300.EMS302.EMS307.EMS 
9 064240 102322 101713 101666 “WORD £&MS511.EMS50 “EMS501: -EMS503,0 
10 064252 077316 077463 077500 EMTS: .WORD &MS301.EMS31 
11 064260 102322 101713 101666 “WORD €MS511,EMS502. Ems301, EMS503,EMS504 
12 064272 077544 000000 “WORD 
13 064276 077316 077406 077500 EMT6: .WORD EMS301 “EMS306,EMS311 
14 064304 102322 101713 101666 “WORD £MS511.EMS50 emSsOt, EMS503,£MS504,0 
15 064320 077316 077602 077341 EMT7: .WORD &MS301.EMS313, 
16 064326 102322 101666 101713 “WORD £MS511.EMS501, -EMS502, EMS504,EMS503,0 
17 064342 077710 077731 077633 EMT10: .WORD &MS316,EMS317.EMS314 
18 064350 102322 101666 101713 .WORD £&MS511,EMS501,EMS502,0 
19 064360 077710 077731 077662 EMT11: .WORD &MS316.EMS317.EMS315 
20 064366 102322 101666 101713 -WORD EMS511,EMS501,EMS502,0 
21 064376 077710 077751 077633 EMT12: .WORD &MS316.EMS320,EMS314 
22 064404 102322 101666 101713 “WORD &MS511, ~EMS502,0 
23 064414 077710 077751 077662 EMT13: .WORD &MS316. /EMS315 
24 064422 102322 101666 101713 .WORD £&MS511,EMS501,EMS502,0 
25 064432 077710 077771 077633 EMT14: [WORD &MS316. 1,—MS31 
26 064440 102322 101666 101713 .WORD &MS511,£MS501,EMS502,0 
27 064450 077710 077771 077662 EMT15: WORD &MS316. 1,EMS315 
28 064456 102322 101666 101713 “WORD €&MS511,EMS501,EMS502,0 
077710 100011 077633 EMT16: .WORD &MS316.EMS322.EMS314 
30 064474 102322 101666 101713 .WORD EMS511,€MS501,EMS502,0 
31 064504 077710 100011 077662 EMT17: .WORD £&MS316,EMS322.EMS315 
32 064512 102322 101666 101713 .WORD &MS511,EMS501,EMS502,0 
33 064522 077316 100050 076566 EMT20: .WORD &MS301.EMS324.EMS250 
34 064530 102322 102010 .WORD &€MS511,EMS5( 
000000 -WORD &MS312,EMS326,0 
542 077316 100031 076566 EMT21: .WORD &MS301.EMS323,.EMS250 
37 064550 102322 102010 -WORD £&MS511,EMS 
38 064554 077544 100070 000000 .WORD €MS312,EMS325,0 
39 064562 077316 077602 076566 EMT22: .WORD €&MS301.EMS315.EMS250 
40 064570 102322 102010 000000 WORD EMSs ‘E 0 
41 064576 077316 100050 076624 EMT23: .WORD €&MS301.EMS324.EMS251 
42 064604 102322 “WORD at “EMS ms501 
43 064610 077544 100101 000000 “WORD £€MS312.E : 
44 064616 077316 100031 076624 EMT24: _WORD EMS301 EMS SEMS251 
45 064624 102322 101666 WORD €MS511,EMS5 
44 WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
“ WORD 
“WORD 
“WORD 
“ WORD 
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398 064746 
59 064754 
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076670 


000000 
077017 
000000 
077017 
000000 
076566 
101666 
000000 
076723 
000000 
101763 
102010 


000000 
076723 


000000 
076723 
000000 
077061 
000000 
077061 


000000 
077061 
000000 
077061 
000000 


101666 


101666 
077145 


000000 
077145 


LL LLL LT LT A ET LC LC CI te Tt ei i tl tl ts eit te is sty 


EMT32: 
EMT33: 
EMT 34: 
EMT35: 
EMT 36: 
EMT 37: 
EMT4O: 


EMT41: 
EMT42: 
EMT43: 
EMT44: 
EMT45: 
EMT46: 
EMT4?: 


EMTSO: 


EMT51: 


EMTS2: 
EMTS3: 
EMT54: 


EMT5S: 


EMT56: 
EMT57: 
EMT60: 
EMT61: 


EMT62: 


a 


EMS301,EMS324 ,EMS252 
EMS511,EMS501 0 

EMS 301 EMS 324 ,EMS252 
EMS511.EMS501 .EMS504 ,0 
EMS 301 .EMS324.EMS252 
EMS511.EMS501 .EMS503,0 
EMS301.EMS323.EMS252 
EMS511.EMS501.0 

EMS 301 .EMS313,EMS252 
mS511.EMS501 ,0 


EMS511,EMS504 ,0 


EMS301 .EMS323,EMS250,EMS327,EMS255 
EMS511,EMS504,EMS501 ,EMS503,0 


EMS 
EMS511.EMS501,0 
EMS331 “EMS S4,EMS253 
EMS511,E€MS501,0 
EMS 


"E MS 
EMS511,EMS501 ,EMS503,0 
EMS300, 
EMS511,EMS501,EMS504 ,0 
EMS301 ,EMS324 ,EMS253 

511,EMS501 ,EMS503 


-EMS 
‘4 EMS 324.EMS253 
11,EMS501 ,EMS504 


-EMS 
= 1 -EMS323. EMS253 
oe >°EMS325, 0 
1,EMS313,EMS253 


mM 
AAD 
eegvers 





-EMS on, 0 

1 -EMS325. EMS256 
EMSS 11. EMS501 
EMS312,EMS325, 

cate EMSs 13. EMS256 
EMS511,EMS501,0 
EMS257 ,EMS332 


EMS511,EMS506,EMS501,0 


EMS 
EMS511,€MS507,EMS501,0 
EMS301 1 .EMS324 -EMS260 


511 

EMS312,EMS326,0 

EMS 301, “ENS323, EMS260 
EMS511,EMS501 
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G 5 
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000000 
077145 
000000 


000000 
100326 
000000 
100326 
000090 


000000 


000000 
076756 


EMT63: 
EMT64: 
EMT65: 
EMT66: 
EMT67: 


EMT70: 
EMT71: 
EMT72: 
EMT73: 


EMT74: 
EMT75: 


EMT76: 
EMT77: 


EMT100: 
EMT101: 
EMT102: 
EMT103: 


EMT104: 
EMT105: 
EMT106: 


EMT107: 
EMT110: 
EMT111: 
EMT112: 
EMT113: 
EMT114: 
EMT115: . 


pa 
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~ 
Ww 
— 
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OU ANUWU— Vwi 
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—_= —iWWN 
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EMS7,EMS333,0 

ENSS00, Pass EMS327,EMS7 

EMS 5511.EMS501,EMS504,0 

EMS6, EMS335,EMS340,EMS10,EMS333,EMS 342 
EMS511,€MS$501,EMS502,0 

EMS6,EM MS536 EMS 340 EMS10, EMS 334 ,EMS342 


"EMS mS501. MS 
343,EMS344 4°EMS34 2.0 
EMS300,EM 
att »EMS503,0 

MS346,EMS13,EMS345 
EMSS 11 -EM 
EMS337, ath EMS345 


EMSS 1 
EMS301 “EMS313, EMS254 ,EMS347 ,EMS13 
EMS511, 


EMS346,EMS14 EMS341 , sEMS15 
EMS517,EMS503,EMS501,0 
EMS337, 


EMS332,0 
mescbe EMS17. EMS341 sEMS16 

EMSS I 1.€MS503, EMS 
EMS337.EMS17 ebes20! TERsI6 


EMS511,E -EMSS 
ees EMS313.EMS254,EMS347,EMS16 
MS51 pOmeeo 


,EMS332 
MS346, “ERS2O,EMS341 EMS21 
EMS20 0 EMS seni" EMS21,EMS350,EMS22,EMS315 
ms20 Ens 334 EMS350.EMS22,EMS333 


EnS5) EMS 
MS337, EMS20 EMS341 sEMS21 
ee EMS503, EMS 


EMS337, EMS MS20 eoes27! "ENS21. EMS350,EMS22,EMS334 
EMSS11 EMSS5O1, 
ms20 EMS352,EMS21,EMS350,EMS22,EMS333 


EMSS »EMS 
EMS 301,EMS313,EMS254,EMS347,EMS21 
EMS511,EMS503 


SEQ 0266 


H 5 
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ERROR MESSAGE TABLE 


172 066334 073337 10016 000000 -WORD £&MS20,€MS332,0 
173 066342 100451 673527 100317 EMT116: .WORD &MS346,EMS23.EMS341,EMS246 
174 066352 102322 101763 101666 “WORD £MS511.EMS503,EMS501, 
175 066362 100272 073527 100317 EMT117: .WORD &MS337.EMS23 EMS 34 1 ,EMS24 
176 066372 102322 101763 101666 “WORD &MS511.EMS503,E 
177 066402 077316 077602 076756 EMT120: .WORD €&MS301.EMS313. me 54. EMS347,EMS24 
178 066414 102322 101763 “WORD £&MS511.EMS503. 
179 066420 073527 100166 000000 “WORD &MS23,EMS332,0 
180 066426 100451 073664 100317 EMT121: .WORD &MS346,EMS25.EMS341,EMS26 
181 066436 102322 101763 101666 “WORD Ems 1.—MS503, 
182 066446 100272 073664 100317 EMT122: .WORD &MS337.EMS25.EMS341,EMS26 
183 066456 102322 101763 101666 “WORD €MS511,EMS503,EMS501,0 
184 066466 077316 077602 076756 EMT123: .WORD &MS301.EMS313.EMS254.EMS347,EMS26 
185 066500 102322 101763 “WORD €&MS511.EMS503 
186 066504 07% 100166 000000 “ WORD EMS29 4E MS332,0 
187 066512 077300 074021 077422 EMT124: . WORD ms306, ENS2? EMS307,EMS2 
188 066522 102322 101763 000000 “WORD eNS511 
189 066530 100136 074021 100547 EMT125: .WORD EMS331 EM? EMS353 
199 066536 102322 101763 “WORD ENS51 1,—MS503 
191 066542 074065 077662 000000 “WORD £&MS30,EMS315,0 
192 066550 100272 074021 100317 EMT126: .WORD Me33o. EMS27. EMS341,EMS30 
193 066560 102322 101763 000000 “WORD EMS 1 »EMS503,0 
194 066566 077316 077602 076756 EMT127: .WORD &MS301.EMS313.EMS254,EMS347,EMS30 
195 066600 102322 101763 “WORD £&MS511,EMS503. 
196 066604 074021 100166 000000 -WORD &MS27,EMS332,0 
197 066612 074145 100573 076566 EMT130: .WORD &MS31.EMS354.EMS250 
198 066620 102322 102010 101763 .WORD &MS511,EMS504,EMS503,0 
199 066630 074216 100573 076566 EMT131: .WORD E&MS32,EMS354,EMS250 
200 066636 102322 102010 101763 WORD EMSS 11 EMS504,EMS503,0 
201 066646 100626 074276 076566 EMT132: .WORD mS355, EMS $33, efso30, EMS341,EMS30 
202 066660 102322 102010 900000 “WORD EMSs 1 ,0 
26 074326 076566 §EMT133: .WORD £&MS355. EMS 3a, EMS250,EMS341.EMS30 
204 066700 102322 102010 “WORD £&MS511, $ 


000000 
205 066706 100136 072373 077017 EMT134: .WORD &MS331.EMS4,EMS255 


206 066714 1023522 102010 . WORD MS 

207 066722 074355 100670 100712 EMT135: .WORD ees EMS357,EMS360,EMS15 
208 066732 102322 101666 000000 . WORD EMSS 1 ,EMS501 ,0 

209 0667490 077176 100766 EMT136: . 


WORD  £—MS261,EMS362_ 
000000 WORD &MS511,EMS503,0 
211 066752 077300 074417 077422 EMT137: .WORD EMS300. EM S28 EMS307 .EMS2 


212 066762 102322 101666 000000 -WORD £MS511.EMS 

213 066770 100626 074447 077017 EMT140: .WORD €MS355,EMS37,£MS255,EMS341,EMS30 

214 067002 102322 102010 000000 “WORD EMS511 “EMS504,0 

215 067010 100451 074501 100423 EMT141: .WORD E&MS346.EMS40,EMS345 

216 067016 102322 102010 000000 “WORD ENSS1T-E MS5 

217 067024 100272 074501 100317 EMT142: .WORD £&MS337. EMS60, EMS341,EMS30 

218 067034 102322 102010 000000 “WORD EMSS 1,EMS 

219 067042 101007 077463 074557 EMT143: .WORD EMS303, EMS310. EMS41 

220 067050 102322 101666 000000 “WORD £MS511 01,0 

221 067056 100272 074557 100317 EMT144: .WORD &MS337. EnSG1 EMS341.EMS252.EMS327,—MS253 
222 067072 102322 101666 000000 “WORD £MS511.EMS 

223 067100 074557 100573 101024 EMT145: .WORD &MS41,EMS354,EMS364,EMS252.EMS365,EMS253 
224 067114 102322 101666 000000 “WORD EMS> 1 11,€MS501,0 

225 067122 077316 077406 074417 EMT146: .WORD &MS301 EMS MS 306, EMS 36 

226 067130 102322 101666 101763 “WORD EMsS1 1. °—EMS501. EMSSO3, 0 

227 067140 101052 074625 EMT147: .WORD EM 

228 067144 102322 101763 000000 "WORD EMS511.EMS503,0 


pn 





2 
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ERROR MESSAGE TABLE 


229 067152 100547 101045 EMT150: .WwORD &MS367,EMS353,EMS365,EMS42,EMS354,EMS3 


mn 


101075 
230 067166 102322 101763 000000 "WORD €MS511.EMS503.0 

231 067174 100272 074417 EMT151: .WORD &MS337.EMS36 

232 067200 102322 101666 000000 "WORD £&MS511.EMS501,0 

233 067206 074707 100573 074417 EMT152: .WORD &MS43,EMS354,EMS56 

234 067214 102322 101666 000000 "WORD £MS511,EMS501,0 

235 067222 101075 100547 101045 EMT153: .WORD EMS 367, EMS393, EMS365,EMS36,EMS370 

236 067234 102322 101763 000000 "WORD  £MS511 

237 067242 101075 100547 101045 EMT154: .WORD &MS367, “ENS 353. EMS365,EMS36,EMS371 

238 067254 102322 101763 000000 “WORD £MS511. 

239 067262 077300 074760 077422 €EMT155: .WORD &MS300. EMSZ4 EMS307,EMS2 

240 067272 102322 101763 000000 “WORD  €MS511. 

241 067300 101075 100547 101045 EMT156: .WORD EMS367, EMS393. EMS365,EMS44,EMS354,EMS3 
242 067314 102322 101763 0000 "WORD  €MS511 

243 067322 077300 075021 077422 EMT157: .WORD EMS MS300, ENS45 EMS307,EMS2 

244 067332 102322 101763 000000 “WORD £MS511 

245 067340 101075 100547 101045 EMT160: .WORD &MS367. Eme353. EMS365,EMS45,EMS354,EMS3 
246 067354 102322 101763 101666 “WORD £€MS511.EMS503.EMS501 

247 067362 074355 100204 000000 “WORD £MS35,EMS333, 

248 067370 077300 075076 077422 EMT161: .WORD EMS 300. EMSG6, EMS307,EMS2 

249 067400 102322 101763 000000 “WORD £MS511.EMS505, 

250 067406 100272 075076 100547 EMT162: .WORD &MS337.EMS46,EMS353 

251 067414 102322 101763 101666 “WORD £&MS511,EMS503,EMS501,0 

252 067424 074355 100230 100272 EMT163: .WORD &MS35,EMS335,EMS337,EMS41,EMS334,EMS372 
253 067440 102322 101666 000000 “WORD &MS511,EMS501,0 

254 067446 075160 100230 100272 EMT164: .WORD &MS47,EMS335,EMS337,EMS41,&MS335,EMS372 
255 067462 102322 101666 000000 “WORD EMS9 11 £ $501.0 

256 067470 100272 074355 100111 EMT165: .WORD &MS337.EMS35.EMS327,EMS47 

257 067500 102322 101666 “WORD EMSS 1,€MS501 

258 067504 074557 100204 101211 “WORD EMS41,EMS333,EMS372,0 


259 067514 077300 075160 077422 EMT166: .WORD EMS300.EMS47 
260 067524 102322 101666 101763 Wl 511.€MS501,EMS503,0 
261 067534 075220 100230 100306 EMT167: .WORD EMS50 EMS335,£MS340.EMS36,EMS333 


262 067546 102322 101666 101763 WORD £&MS511,€MS501,EMS503,0 
263 067556 100272 074355 EMT170: .WORD £&MS337.EMS35 

264 067562 102322 101666 000000 “WORD £MS511.EMS501,0 

265 067570 075220 074326 072326 €EMT171: .WORD 

266 067576 102322 000000 WORD £&MS511,€MS501,0 


101666 ; 

267 067604 077316 077406 075267 EMT172: .WORD ae 

269 067622 101075 100547 101045 EMT173: .WORD Ee saP EMS355° EMS 365 EMSG7 .EMS354.EMS3 
101666 000000 ; EMS511,EMS 

271 067644 077300 076566 100111 €&MT174: .WORD &MS300,EMS250.EMS327,EMS255,EMS327,EMS256 


272 067660 100317 102421 -WORD EMS 

273 067664 102322 101666 000000 “WORD EMS511 4£ mS501,0 

274 067672 077300 077061 100317 EMT175: .WORD &MS300. “ERSE56. EMS341,EMS600 

275 067702 102322 101666 000000 “WORD EMg311/E $501.0 

276 067710 077300 076566 100317 EMT176: .WORD &MS300. “EMS 350. EMS341,EMS600 
277 067720 102322 102010 000000 “WORD £&MS511.EMS504.0 

278 067726 EMT177: 

279 067726 100272 075336 100317 EMT200: .WORD &MS337,EMS52,EMS341.EMS601 

280 067736 102322 191666 000000 “WORD £MS511.EMS501, 

281 067744 100451 075336 100317 EMT201: .WORD &MS346. ENS52, EMS341,EMS602 
282 067754 102322 101664 000000 “WORD £&MS511,EMS 

283 067762 100451 075267 100317 EMT202: WORD EMS346, °EMS51,EMS341,EMS602 
84 067772 102322 101666 000000 “WORD £MS511.EMS501,0 


2 
285 070000 100451 075336 100423 EMT203: .WwORD &MS346, EMSo2,EMS345, EMS3735,EMS255 
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ERROR MESSAGE TABLE 
sae oS 070012 


¥) 
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328 070466 
329 070474 
330 070504 
331 970512 
332 070520 
333 070526 
334 070542 102322 
335 070550 
336 070562 
337 070572 
338 070610 


342 070654 076270 


oo = Oo — 


— SS OM SH SS 


© 

aah 
Nm 
ae 


2 2 © ~ -  — -  —  - 
82225285 
amd ceed od —_— _— 

LAN Ws 
RAKE RAR AT AD 
WOWN Ono 


oy 


Ooonoooe 
> 
YS 
Wo 
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000000 
100423 


000000 


—3©O 3 = 
OONOOCOCO 
— — 2 
$38 
— 
_ 


2 CARD 
WN 


. WORD 
EMT204: .WORD 
. WORD 
EMT205: .WORD 
.» WORD 
EMT206: .WORD 
. WORD 
. WORD 
EMT207: .WORD 
. WORD 
EMT210: .WORD 
— WORD 
EMT211: .WORD 
. WORD 
EMT212: .WORD 
. WORD 
EMT213: .WORD 
. WORD 
. WORD 
EMT214: WORD 
. WORD 
EMT215: .WORD 
. WORD 
EMT216: .WORD 
. WORD 
EMT217: WORD 
. WORD 
EMT220: .WORD 
_ WORD 
EMT221: .WORD 
. WORD 
EMT222: .WORD 
. WORD 
EMT223: .WORD 
. WORD 
EMT224: .WORD 
- WORD 
EMT225: .WORD 
EMT226: .WORD 
. WORD 
EMT227: .WORD 
» WORD 
EMT230: .WORD 
. WORD 
EMT231: .WORD 
. WORD 
EMT232: .WORD 
. WORD 
EMT233: .WORD 
. WORD 
EMT234: .WORD 
. WORD 
EMT235: .WORD 
. WORD 
EMT236: .WORD 
o WORD 





EMS511,EMS504,EMS501.0 

EMS 346,EMS52,EMS341,EMS27 

EMS511.EMS504 EMS mS501.0 

EMS93 EMS354,EMS3 

514 EmscOS FMS502, EMS510,0 

emS37" EMS54,EMS374,EMS250,EMS327,EMS255 


EMS3 
EMS511, ZEMS504 , EMS501,0 
EMS54 ,EMS354 
EMS511,EMS 

EMS MS94 . EMS394 EM ,EMS364,EMS250 

EM mee EMS 394 tns364. EMS255 

EMS511,EMS504,0 

EMS337, EM mS55 

EMS511,EMS504,0 

oye ,EMS345 ,EMS373,EMS262,EMS327,EMS251 


01,0 
EMS57 EMS333. EMS350,EMS60,EMS334 
EMS9 11 4E 11,€MS501,0 


ENs6e, ERs iF ene, EMS375,EMS251 
Ensoe, Ene333& ,EMS376,EMS262 
ENs62 ,ENG353, Em ,EMS376,EMS250 


EMS346, EMSC? Ems361. EMS603 
EMS511,EMS501,0 
EMS346,EMS63, EMS376 EMS262 
EMS511.EMS501, ,0 
EMS 5 EMSS35, eNS350, "EMS363,EMS310,EMS262 
EMS 3, eng357 EMS36,EMS372 
EMS63 gaeseg EMS360,EMS15 
EMS5 | 11,€MS501.0 

MS63 EMS396 EMS361,EMS15 
EMSs if e 501.0 
EMS63, eoes2e EMS41 


EMS511,EMS 
EMS41,EMS377,EMS342,EMS365,.EMS63,EMS332 
EMS9 11. EMS501,0 

MS 367 .EMS353,.EMS365,EMS63, EMS401 
Emest1 EMS503.EMS501.0 
EMS EMS372,EMS365.EMS64 ,EMS354,EMS3 
EMSS 1 ,£MS503,EMS501,0 


eEMS502,EMS505,0 
EMS 377,EMS376,EMS252,EMS 372, EMS 350 
EMS6OS, EMS 01 


OE ES A A Ma ek eke ek 


| 3 
344 070672 


| 

| 

| 

392 071464 
393 071470 
394 071476 
395 071506 
396 071514 
397 971524 
398 .71532 
399 071540 
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102322 
077300 


102322 


o— 
Sgsegescsese 


elelelelele] a) 
MNVIN — NW 
VES, oui 
OWWWWNUIW OS 


As 
WW 


—h)— SaesSseSSsssse 
“J 
oO 
WG 


Wows 


oO 
—_ 
~~ 
On 
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SSlVSSelVeSSSsssas lee 

Sm NAP NS MM 
RMNOS eats 
WAOW Or 
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0 
101462 
000000 
101373 


000000 
101462 


000000 
100306 
000000 
101373 


000000 
100306 
000000 
101462 
000000 
101462 
000000 
101373 


000000 
101462 
000000 
100306 
000000 
101373 


000000 
100306 
000000 
101462 
000000 
101462 
000000 
101373 


000000 


EMT237: .WORD 
. WORD 
EMT240: .WORD 
. WORD 
EMT241: WORD 
. WORD 
EMT242: .WORD 
. WORD 
. WORD 
EMT243: .WORD 
. WORD 
EMT244: .WORD 
. WORD 
EMT245: .WOR" 
. WORD 
EMT246: .WORD 
. WORD 
. WORD 
EMT247: .WORD 
WORD 
EMT250: .WORD 
. WORD 
EMT251: .WORD 
. WORD 
. WORD 
EMT252: .WORD 
. WORD 
EMT253: .WORD 
WORD 
EMT254: .WORD 
WORD 
EMT255: .WORD 
. WORD 
~ WORD 
EMT256: .WORD 
. WORD 
EMT257: .WORD 
WORD 
EMT260: .WORD 
- WORD 
» WORD 
EMT261: .WORD 
. WORD 
EMT262: .WORD 
. WORD 
EMT263: .WORD 
. WORD 
EMT264: .WORD 
- WORD 
. WORD 
EMT265: .WORD 
. WORD 
EMT266: .WORD 
. WORD 
EMT267: .WORD 
. WORD 


EMS511,EMS502,EMS503,EMS501,0 
ciiog0 9 -ENSGR EMS307 ,EMS2 


EMS400, EMS 372,EMS350,EMS66,EMS401 
EMS503,EMS501,0 

EMS66, EMS 336,EMS340,EMS15,EMS406,EMS405,EMS604 
EMS511,EMS503,0 

EMS403,EMS604.EMS402,EMS21,E£MS377 

EMS511,EMS503 

EMS36,EMS335,0 

EMSG6 EMS 336,EMS340,EMS26,EMS404,EMS405,EMS604 


,EMS505,0 
EMS63 ,EMS401 ,EMS405 ,EMS604 


EMS511,EMS503,0 
EMS36,EMS370,EMS405,EMS604 
EMS511,€MS503,0 
EMS403.EMS604,.EMS402,EMS24,EMS377 
EMS511,EMS503 

EMS 36 ,—MS335,0 

EMS67 .EMS332,EMS405,EMS604 
EMS511,EMS503,0 
MS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,.EMS605 
EMS511,EMS503,0 

EMS403,EMS605 .EMS402,EMS21,EMS377 
EMS511,EMS503 


EMS36,EMS335, 
EMS66 .EMS336,EMS340,EMS26,EMS404 ,—EMS405,EMS605 
EMS511,EMS503,0 
EMS63,EMS401,EMS405,EMS605 
EMS511,EMS503,0 

EMS 36, £MS370,EMS405,EMS605 
EMS511,EMS503,0 

EMS403,,EMS605 .EMS402.EMS24.EMS377 
EMS511,EMS503 

EMS 36,£MS335,0 

EMS67 .EMS332,EMS405,.EMS605 
511,EMS503,0 
EMS66 .EMS336 .EMS340.EMS15,EMS406,EMS405 .EMS606 
EMS511,EMS503,0 
EMS403.EMS606.EMS402,EMS21,EMS377 
EMS511,EMS503 

EMS 36, EMS 35.0 

EMS66 .EMS336,EMS340,EMS26,EMS404,EMS405 , EMS606 
EMS511,EMS503,0 

EMS63,EMS401 ,EMS405,EMS606 

EMS511,€MS503, 
EMS.36,£MS370,EMS405,EMS606 
EMS511,EMS503,0 
EMS403,EMS606,EMS402,EMS24.EMS377 
EMS511,EMS503 


EMS 36,EMS335,0 
EMS70.EMS401 EMS405, EMS606 
EMS511,EMS503,0 
EMS67,EMS332,EMS405, EMS606 
EMS511,—MS503, 

EMS66,EMS 356,EMS407 
EMS511,EMS503,0 


LF SR CR ms SE em em 


| 
| 
| 
! 


| 


400 071546 
401 071564 


417 071752 
418 071764 
419 C71770 
420 071776 
421 072006 
422 072014 
423 072024 
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076331 


102522 


oo°oco 


Oooooco°coo 
anh aad aad aad mad ead end oad 


ae 
~~ 
ESE 
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100306 
000000 
101373 


000000 
100306 
000000 
101373 
000000 
101462 
000000 


100317 
000000 


EMT270: .WORD 
. WORD 
EMT271: .WORD 
. WORD 
. WORD 
EMT272: .WORD 
. WORD 
EMT273: .WORD 
. WORD 
EMT274: .WORD 
. WORD 
EMT275: .WORD 
. WORD 
EMT276: .WORD 
. WORD 
EMT277: .WORD 
. WORD 
EMT300: .WORD 
. WORD 
. WORD 
EMT301: .WORD 
. WORD 
EMT302: .WORD 
. WORD 


EMS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS607 
EMS511,€MS503,0 
EMS403,EMS607.EMS402,EMS21,£MS377 
EMS511,EMS503 

EMS27,EMS336,0 

EMS27.EMS370,EMS405 .EMS607 


EMS EMS A 
EMS2/ EMS371.EMS405,EMS607 
EMS511,EMS503, 
EMS 36,£MS404,—MS405,EMS607 


,EMS503, 
EMS53,£MS401,EMS405 ,EMS607 
EMS5 11 ,EMS305 EMS502,0 
67,£MS332,—MS405 , EMS607 
511,EMS503,0 
MS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS607 
EMS511,EMS503,0 
EMS403,EMS607.EMS402,EMS24 ,EMS377 
EMS511.EMS503 
EMS27 ,£MS336,0 
EMS70.EMS401 .EMS405,EMS607 
EMS511,EMS503,0 
EMS 300,.EMS255,EMS341,EMS600 
EMS511.EMS504.0 


| M 5 
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| ERROR MESSAGE TABLE SEQ 02772 

| 1 072032 102654 000000 EHT1: . WORD €H1,0 

| 2 072036 102732 000000 EHT2:  _-WORD EHe. 0 

| 3.072042 102747 000000 EHTS: D  €£HS.0 

| 4 072046 103005 000000 EHT?: D  €H7.0 
5 072052 103024 000000 EHTS7: .WORD €&H57,0 

| 6 072056 103062 000000 EHT65: .WORD £H65.0 

| 72062 103136 000000 EHT71: .WORD  €H71,0 

| 8 072066 102740 000000 EHT74: ‘WORD EH3,0 
9 072072 103213 000000 EHT115: .WORD £&H115,0 
10 072076 103310 000000 EHT130: .WORD £H130.0 
11 072102 103426 000000 EHT132: .WORD €H132,0 
12 072106 103524 000009 EHT142: .WORD EH1 42.0 
13 072112 103622 000000 EHT145: .WORD £H145.0 
14 072116 103737 EHT150: .WORD €H150.0 
15 072122 104035 000000 FHT213: .WORD £H213,0 
16 072126 104132 600000 EHT220: .WORD £H220.0 


wo SR a a NTS F : 


N 5 
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ERROR MESSAGE TABLE SEQ 0273 
1 072132 104170 EDT1: .WORD EDI 
| 2 072134 104200 EDT2:  :WORD €ED2 
| 3 072136 104204 EDTS: .WORD EDS 
4 072140 104212 EDT57: .WORD £D57 
| 5 072142 104220 EDT65: WORD ED65 
6 072144 104230 EDT71: .WORD €D71 
7 072146 104200 EDT74: .WORD ED2 
8 072750 104240 EDT115: .WORD D115 
9 072152 104252 EDT130: .WORD £D130 
10 072154 104240 EDT132: .WORD £Di15 
11 072156 104266 EDT220: .wORD D220 
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_ CZRMPBO RMO5/3/2 DSKLS TST 1 
_ ERROR MESSAGE TABLE 
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CZRMPBO RMOS/3/2 DSKLS TST 1 MACRO V04.00 4=-APR=81 01:24:25 PAGE 40 
| ERROR MESSAGE STRINGS 


| 


eee eo 


1 .SBTTL ERROR MESSAGE STRINGS 
3 072206 116 117 116 EMS1: .ASCIZ @NONEXISTENT DEVICE ‘'NED’’ (RMCS2.BIT 12) a 

4 072257 103 117 116 EMS@: “ASCIZ @CONTROLLER CLEAR ‘CLR’ (RMCS2,BIT 05) a 

5 072326 106 125 116 EMS3:  .ASCIZ @FUNCTION CODE (RMCS1, BITS 01 - 05) a 

6 072373 125 116 125 EMS4:  .ASCIZ SED BIT POSITIONS OF 

? 072424 104 105 126 EMSS:  .ASCIZ @DEVICE AVAILABLE ‘DVA’’ (RMCS1, BIT 11) @ 

8 072474 120 101 122 EMS6:  .ASCIZ @PARTIY ER PAR’ R1, BIT 03) a 

9 072540 104 101 104 EMS7:  .ASCIZ @DATA PARITY ERROR ‘DPE'’ (RMERE BIT 03) a 

10 072611 120 101 122 €MS10: .ASCIZ @PARITY TEST ‘PAT’ (RMCS2, BIT 04) 

11 072654 115 101 123 EMS11: . ASCII @MASSBUS CONTROL BUS PARITY ERROR 'MCPE’’ a 

12 072724 050 122 115 -ASCIZ @(RMCS1, BIT 13) a 

13 072745 111 114 114 12:  ASCIZ2 @ILLEGAL REGISTER ERROR ‘‘ILR’’ (RMER1. BIT 01) a 
14 073023 104 111 101 EMS13: .ASCIZ @DIAGNOSTIC MODE ‘'DMD’' (RMMR1, BIT 00) @ 

15 073072 115 105 104 €MS14: .ASCIZ @MEDIUM ON LINE 'MOL'’ (RMDS, BIT 12) a 

16 073137 115 101 111 EMS15: .ASCIZ @MAINTENANCE UNIT READY ‘MUR'’ (RMMR1, BIT 09) a 

17 073215 115 101 111 EMS16: .ASCIZ @MAINTENANCE WRITE PROTECT 'MwP’’ (RMMR1, BIT 03) a 
18 073276 127 122 111. EMS17: _ASCI2Z LOCK 'WRL"’ ‘ 11) 

19 073337 104 105 126 EMS20: .ASCIZ @DEVICE CHECK 'DVC'’ (RMER2, BIT 07) @ 

20 673403 115 101 111 EMS21: .ASCIZ @MAINTENANCE DRIVE FAULT MOF (ROAR BIT 06) a 
21 073462 125 116 123 EMS22: .ASCIZ @UNSAFE STATUS ‘UNS’’ 

22 073527 123 105 105 EMS23: .ASCIZ @SEEK INCOMPLETE STATUS reKT" (RMER2, BIT 14) a 
23 073605 115 107 111 EMS24: .ASCIZ @MAINTENANCE SEEK ERROR ‘MSER’’ (RMMRI, BIT 07) a 
24 07 120 117 123 EMS25: .ASCIZ @POSITIONING IN PROGRESS ‘PIP’’ (RMDS, BIT 13) a 
25 073742 115 101 111 EMS26: .ASCIZ @MAINTENANCE ON CYLINDER ‘MOC’’ ( , BIT 08) a 
26 074021 105 116 104 EMS27: .ASCIZ ae kK “EBL’* (RMMRI, 

27 074065 104 111 101 EMS30: .ASCIZ @DIAGNOSTIC END OF BLOCK ' '* (RMMRI, BIT 13) a 
28 074145 114 101 123 EMS31: .ASCIZ T SECTOR STATUS "LS'' (RMMR1, BIT 

29 074216 114 101 123 EMS32: .ASCIZ @LAST SECTOR/TRACK STATUS ‘LST’’ (RMMR1, BIT 01) a 
30 074276 123 105 103 EMS33: .ASCIZ @SECTOR ADDRESS BITS OF a 

31 074326 124 122 101 EMS34: .ASCIZ @TRACK ADDRESS BITS OF a 

32 074355 126 117 114 €MS35: .ASCIZ @VOLUME VALID " (RMDS, BIT 06) 

33 074417 107 117 040 €EMS36: .ASCIZ @GO BIT (RMCS1, BIT 00) 

34 074447 103 131 114 EMS37: .ASCIZ @CYLINDER ADDRESS BITS OF a 

35 074501 114 101 123 EMS40: .ASCIZ @LAST BLOCK TRANSFERRED, Per" (RMDS, BIT 10) a 
3% 074557 103 117 115 EMS41: .ASCIZ @COMPOSITE ERROR ‘ERR’’ (RMDS, BIT 14) a 

37 074625 103 117 115 EMS42: .ASCIZ @COMMAND SEQUENCER TEST BIT ‘TST’ (REMR. BIT 12) a 
38 074707 104 122 111 EMS43: .ASCIZ @DRIVE READY STATUS 'DRY'’ (RMDS, BIT 07) 

39 074760 103 117 116 EMS44: .ASCIZ @CONT “CONT’’ (RMMR1, BI] 

40 075021 111 116 126 EMS45: .ASCIZ @INVALID COMMAND ERROR “‘IVC'’ (RMER2, BIT 12) a 
41 075076 114 117 123 EMS46: .ASCIZ @LOSS OF SYSTEM CLOCK ERROR iSC™ (RMER2, BIT 11) a 
42 075160 117 103 103 EMS47: .ASCIZ @OCCUPIED ‘DCC’’ (RMMR1, BIT 15) 
43 075220 111 114 114 EMS5SO: .ASCIZ @ILLEGAL FUNCTION “‘ILF‘* (RMERT, BIT 0a 

44 075267 117 106 106 EMS51: .ASCIZ @OFFSET DIRECTION ‘‘OFD'' (RMOF, BIT 07) a 

45 075336 117 106 106 EMS52: .ASCIZ @OFFSET MODE 'OM’’ (RMDS, BIT 00) a 

46 075377 122 125 116 EMSS3: .ASCIZ ‘RG’ (RMMR1, BIT 14) 

47 075440 111 116 126 EMS54: .ASCIZ @INVALID ADDRESS ERROR “‘IAE . CRMERI BIT 10) a 
48 075515 101 104 104 EMS55: .ASCIZ @ADDRESS OVERFLOW ERROR ‘'AOE'’ (RMER1, BIT 09) a 

49 075573 122 105 107 €MS56: .ASCII @REGISTER MODIFICATION REFUSED ERROR @ 

50 075637 042 122 115 -ASCIZ. a’ RMR’ R1, BIT 02) a a 

51 075666 104 122 111 EMS57: .ASCIZ @DRIVE REQUEST REQUIRED STATUS ‘DRQ'' (RMDT, BIT 11) a 
52 075752 120 122 117 EMS60: .ASCIZ @PROGRAMMABLE STATUS "PGM'’ (RMDS, BIT 09) @ 

53 076024 104 122 111 EMS61: .ASCIZ @DRIVE PRESENT STATUS 'DPR'' (RMDS, BIT 08) a 

54 076077 120 117 122 EMS62: .ASCIZ @PORT REQUEST FLOP "RQA,ROB'’ (RMMR2, BITS 12. 14) a 
55 076160 101 124 124 EMS63: .ASCIZ @ATTENTION ‘ATA’ (RMDS, BIT 15) @ 

56 076220 127 122 111 EMS64: .ASCIZ @WRITE LOCK ERROR 'WLE’’ (RMER} BIT 11) a 

57 076270 105 130 103 EMS65: .ASCIZ @EXCEPTION ‘REX’ (RMMR1, BIT 12) a 
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FRROR MESSAGE STRINGS SEQ 0276 


58 076331 111 116 126 EMS66: .ASCIZ @INVALID COMMAND ERROR "‘IVC'’ (RMER2, BIT 12) a 
59 076406 124 101 107 EMS67: .ASCIZ @TAG BUS (RUMR2 » Bits 00-09) OR TAG CONTROL @ 
60 076462 114 111 116 -ASCIZ @LINES (RMMR2, BITS 10,11,13) @ 

6} 076520 123 105 101 €MS70: .ASCIZ @SEARCH ENABLE PESRC” (RMMR1, BIT 11) a 

63 076566 104 111 123 EMS250: .ASCIZ @DISK ADDRESS REGISTER (RMDA) @ 

64 076624 103 117 116 EMS251: .ASCIZ @CONTROL STATUS REGISTER #1 (RMCS1) a 

65 076670 105 122 122 EMS252: .ASCIZ @ERROR REGISTER #1 (RMER1) @ 

66 076723 105 122 122 EMS253: .ASCIZ @ERROR REGISTER #2 (RMERZ) 

? 076756 115 101 111 254: .ASCIZ @MAINTENANCE REGISTER #1 (RMMR1) @ 
68 977017 104 105 123 EMS255: .ASCIZ @DESIRED CYLINDER REGISTER (RMDC) a 
69 07 117 106 106 EMS256: .ASCIZ @OFFSET REGISTER (RMOF) a 
70 077111 104 122 111 EMS257: .ASCIZ @DRIVE TYPE REGISTER (RMDT) a 
71 077145 110 117 114 EMS260: .ASCIZ @HOLDING REGISTER (RMHR) a 
72 077176 123 105 122 EMS261: .ASCIZ @SERIAL NUMBER REGISTER (RMSN) @ 

é 077235 101 124 124 EMS262: .ASCIZ @ATTENTION SUMMARY REGISTER (RMAS) a 
75 077 103 101 116 EMS300: .ASCIZ @CANNOT CLEAR @ 
76 077316 103 101 116 EMS301: .ASCIZ @CANNOT WRITE/READ a 
77 677341 101 116 131 302: .ASCIZ @ANY DEVICE REGISTER a 
78 077366 127 111 124 EMS303: .ASCIZ2 @WITHOUT @ 
79 077377 105 122 122 EMS304: .ASCIZ 
80 077406 101 040 117 EMS306: .ASCIZ @A ONE FROM @ 
81 077422 125 123 111 EMS307: .ASCIZ @USING MASSBUS INITIALIZE, I.E., @ 
82 077463 107 040 132 €MS310: .ASCIZ @A ZERO F 
83 077500 105 126 105 §MS311: .ASCIZ @EVERY DEVICE REGISTER BIT POSITION a 
077544 124 110 105 §MS312: .ASCIZ @THE FOLLOWING BITS ARE STUCK 
85 077602 101 040 123 £MS313: .ASCIZ IFTING ONE BIT FROM a 
077633 101 120 120 EMS314: .ASCIZ @APPEARS STUCK AT ZERO a 
87 077 101 120 120 €MS315: .ASCIZ ARS STUCK AT 
88 077710 122 105 107 EMS316: .ASCIZ @REGISTER SELECT a 
89 077731 067 040 050 EMS317: .ASCIZ @1 (1,2,4,8,16) a 
077751 062 040 050 €MS320: .ASCIZ a2 (1,2.4.8.16) a 
91 077771 040 + 050 EMS321: .ASCIZ @4 (1.2,4.8.16) a 
92 100011 070 040 050 EMS322: .ASCIZ @8 (1,2.4.8,16) a 
93 100031 101 114 114 €MS323: .ASCIZ @ALL ONES FROM a 
100050 101 114 114 EMS324: .ASCIZ L ZEROS FROM a 
95 100070 101 124 040 £EMS325: .ASCIZ @AT ZERO a 
96 100101 101 124 040 £MS326: .ASCIZ @AT ONE a 
97 100111 054 117. EMS327: .ASCIZ @. OR @ 
98 100117 015 012 103 EMS330: .ASCIZ <CR><LF>@CS MBA CLRL a 
99 100136 103 101 116 £MS331: .ASCIZ @CANNOT READ ZEROS FROM @ 
100 100166 111 123 040 €EMS332: .ASCIZ @IS INCORRECT a 
101 100204 111 123 040 333: .ASCIZ @IS NOT SET a 
102 100220 111 123 040 £MS334: .ASCIZ aIS SET a 
103 100230 123 110 117. EMS335: .ASCIZ D BE SET a 
104 100253 123 110 117 336: .ASCIZ @SHOULD BE SET a 
105 100272 103 101 116 EMS337: .ASCI1Z @CANNOT S 
106 100 102 105 103 EMS340: .ASCIZ @BECAUSE @ 
107 100317 125 123 111 £MS341: .ASCIZ @USING @ 
108 100326 104 125 122 £MS342: .ASCIZ @DURING REGISTER TRANSFER a 
109 100360 125 116 105 343: .ASCIZ @UNEXPECTED a 
110 100374 102 125 123 £MS344: .ASCIZ @BUS TIMEOUT (04 TRAP) a 
111 100423 102 131 040 £MS345: .ASCIZ @BY REGISTER TRANSFER a 
112 100451 103 101 116 EMS346: .ASCIZ @CANNOT RESET a 
113 100467 127 111 124 £MS347: .ASCIZ @WITHOUT SETTING a 
114 100510 102 125 124 E—MS350: .ASCIZ @BUT a 
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ERROR MESSAGE STRINGS SEQ O27 / 


115 100515 127 101 123 EMS551: .ASCIZ @WAS RESET BY @ 
116 100533 127 101 123 EMS352: .ASCIZ @WAS SET BY @ 
117 100547 117 116 040 EMS353: .ASCI1Z @IN DIAGNOSTIC MODE a 
118 100573 117 123 040 EMS354: .ASCIZ @IS INCORRECT ACCORDING TO @ 
119 100626 103 101 116 EMS355: .ASCIZ @CANNOT INCREMENT @ 
120 100650 127 101 123 EMS356: .ASCIZ @WAS NOT SET 
121 100670 12? 101 1235 EMS357: .ASCIZ @WAS NOT RESET BY 
122 100712 060 040 124 EMS360: .ASCIZ @0 TO 1 TRANSITION OF @ 
123 100740 061 040 124 EMS361: .ASCIZ @1 TO 0 TRANSITION OF @ - 
124 100766 111 123 040 362: .ASCIZ @IS INCONSISTENT @ 
125 101007 103 101 116 EMS363: .ASCIZ @CANNOT READ a 
126 101024 124 105 123 EMS364: .ASCIZ @TEST PATTERN IN a 
127 101045 101 116 104 365: .ASCIZ @AND a 
128 101052 103 101 116 EMS366: .ASCIZ @CANNOT INITIALIZE a 
129 101075 124 110 105 EMS367: .ASCIZ @THE COMMAND SEQUENCER HAS BEEN CLOCKED @ 
130 101145 122 105 123 EMS3570: .ASCIZ @RESET EARLY @ 
131 101162 104 117 104 EMS371: .ASCIZ @DID NOT RESET ON TIME @ 
132 101211 104 125 122 EMS372: .ASCIZ @DURING COMMAND EXECUTION @ 
133 101243 124 117 040 EMS575: .ASCIZ aT0 a 
134 101247 12? 117 124 EMS374: .ASCIZ @WITH ANY COMBINATION OF @ 
135 107 102 131 EMS375: .ASCIZ @BY READING @ 
136 101314 102 131 040 EMS376: .ASCIZ @BY WRITING a 
137 1013350 127 101 123. EMS377: .ASCIZ @WAS SET a 
138 101341 127 101 125 EMS400: .ASCIZ NOT SET @ 
139 101356 104 1717 104 EMS401: .ASCIZ @DID NOT SET @ 
140 1013735 127 110 111 EMS402: .ASCIZ @WHILE @ 
141 101402 103 117 115 EMS403: .ASCIZ @COMMAND SEQUENCER DID NOT ABORT @ 
142 101443 127 101 123 EMS404: .ASCIZ @WAS NOT RESET @ 
145 101462 104 125 122 EMS405: .ASCIZ @DURING @ 
144 101472 127 101 125 EMS406: .ASCIZ @WAS RESET @ 
aoe 101505 125 105 101 EMS407: .ASCIZ @SEARCH TIMEOUT @ 
6 
147 101525 011 104 105 EMSSOO: .ASCII @ DEVICE IS NON-EXISTENT ,a<CR><LF > 
148 101557 011 104 105 ASCII @ DEVICE IS SWITCHED TO OTHER PORT@<CR><LF> 
149 101622 011 124 122 ASCIZ @ TRANSCEIVER ENABLE SWITCH IS OF Fa<CR><LF> 
750 101 011 1117 106 EMS50O1: .ASCIZ @ IF MODULE, M7686,a<CR><LF> 
751 101713 011 115 101 EMS502: .ASCIZ @ MASSBUS TRANSCEIVER, M5922 OR M5923 a<CR><LF > 
152 101763 011 105 123 EMSSO3: .ASCIZ @ CS MODULE, M7684 ,a<CR><LF> 
153 102010 011 104 123 EMS504: .ASCIZ @ DS MODULE, M8685/M7685 ,a<CR><LF > 
154 102043 011 104 105 EMS505: .ASCIZ a DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF> 
155 102116 071 104 105 EMS506: .ASCIZ @ DEVICE IS NOT AN RMO5/3/2, OR@<CR><LF> 
156 102157 011 104 105 EMS507: .ASCIZ @ DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, ORa@<CR><LF> 
157 102247 011 101 123 EMS510: .ASCIZ 32 ASSUMING THE RH CONTROLLER HAS NO FAULTa<CR><LF> 
158 102322 015 012 O11 EMS511: .ASCII <CR><LF>@ PROBABLE FAULT (S) :a@<CR><LF> 
5s 102551 011 050 116 -ASCIZ @ (NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 
161 102421 122 105 101 EMS600: .ASCIZ @READ IN PRESET COMMAND a 
162 102451 117 106 106 €EMS601: .ASCIZ @OFFSET COMMAND a 
163 102471 122 105 124 EMS602: .ASCIZ @RETURN TO CENTER CENTER COMMAND a 
164 102532 122 105 114 EMS603: .ASCIZ @RELEASE COMMAND a 
165 102553 122 105 103 EMS604: .ASCIZ @RECALIBRATE COMMAND a 
166 102600 123 105 105 EMS605: .ASCIZ @SEEK COMMAND 
167 102616 123 105 101 EMS606: .ASCIZ @SEARCH COMMAND @ 
168 102636 104 101 124 EMS607: .ASCIZ @DATA COMMAND @ 
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FRROR MESSAGE STRINGS SEQ 027: 


1 102654 105 130 120 EH1: ASCII] @EXPCTD RECEVD REGSTR@<CRLF > 
2 102703 123 124 101 -ASCIZ @STATUS STATUS ADRESS@ 
3 102732 040 102 101 EHe: ASCII @ BASE@<CRLF> 
4 102740 101 104 122 EHS: -ASCIZ @ADRESSA 
5 102747 105 130 120 EHS: ASCII @EXPCTD STUCK@<CRLF> 
6 102766 12 105 123 eASCIZ @RESULT BIT(S)A 
? 103005 105 130 120 EH?: -ASCIZ @EXPCTD RECEVDA 
8 103024 122 105 103 EHS? ~ASCII @RECEVD DRVTYP@<CRLF > 
9 1030435 104 122 126 -ASCIZ @DRVTYP REGADR@ 
10 105062 105 130 120 EH65: .ASCII @EXPCTD RECEVD TEST@<CRLF> 
11 103107 123 124 101 -ASCIZ @STATUS STATUS REGSTRA@ 
12 105136 105 130 120 EH?71 ASCII @EXPCTD RECEVD _TEST@<CRLF> 
13 103164 125 124 101 -ASCIZ @STATUS STATUS PATTRNA@ 
14 103213 105 130 120 EH115: .ASCII @EXPCTD RECEVD REGSTR TEST@<CRLF> 
15 1035251 123 124 101 -ASCIZ @STATUS STATUS ADRESS PATTRN@ 
16 105310 105 130 120 EH1350: .ASCII @EXPCTD RECEVD REGSTR TEST OFFSET@<CRLF> 
17 103357 123 124 101 -ASCIZ @STATUS STATUS ADRESS PATTRN REGSTR@ 
18 103426 105 130 120 EH132: .ASCII @EXPCTD ACTUAL REGSTR OFFSET@<CRLF> 
19 103465 103 117 125 -ASCIZ @COUNT COUNT ADRESS REGSTRA@ 
20 103524 105 130 120 EH142: .ASCII @EXPCTD RECEVD REGSTR OFFSET@<CRLF> 
21 103563 123 124 101 -ASCIZ @STATUS STATUS ADRESS REGSTR@ 
103622 105 130 120 EH145: .ASCII @EXPCTD ACTUAL REGSTR RMER1 RMER2@<CRLF > 
23 103670 103 115 120 -ASCIZ @CMPERR CMPERR ADRESS PATTRN PATTRN@ 
25 103737 105 130 120 EH150: .ASCII @EXPCTD ACTUAL REGSTR FUNCT ION@<CRLF> 
103777 122 105 123 ~ASCIZ @RESULT RESULT ADRESS CODE@ 
27 104035 105 130 120 EH213: .ASCII] @EXPCTD ACTUAL STATUS TEST@<CRLF> 
28 104073 122 105 123 -ASCIZ @RESULT RESULT ADRESS REGSTR@ 
104132 101 103 124 EH220: .ASCII @ACTUAL REGSTR@<CRLF > 
30 104157 122 195 125 -ASCIZ @RESULT ADRESS@ 
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FRROR MESSAGE STRINGS SEQ 0279 

1 104170 001140 001142 001136 ED1:  .WORD  $GDDAT,$BDDAT,$BDADR, 0 

2 104200 001136 00000 ED2: WORD $BDADR,0 

3 104204 001140 001142 000000 EDS: WORD  $GDDAT,$BDDAT,0 

4 104212 001142 001136 000000 ED5S7: .WORD $BDDAT,$BDA 

5 104220 001140 001142 001174 ED65:  .WORD  $GDDAT,$BDDAT,STMPO,0 

6 104230 001740 001142 001450 ED71: WORD SGDDAT . SBDDAT ,RMHRO 0 

7 104240 001140 001142 001136 £D115: WORD $GDDAT,$BDDAT.$BDADR,$TMPO,0 
, 8 104252 001140 001142 001136 £D130: WORD $GDDAT,$8DDAT,$BDADR,$TMPO,$TMP1 ,0 
| 12 104266 001142 001156 ED220: .WORD $B8DDAT,$BDADR 
| 111046272 000 000 000 EF1: «BYTE 0,0,0 
| 12 104275 000 EF2: BYTE 0 

13104276 000 000 EF5:  .BYTE 0,0 
| 14104300 000 000 000 EF57: BYTE 0.0.0.0 
| 15 104306 000 000 000 EF130: .BYTE  0,0,0,0,0 
| 16 -EVEN 


| 
| 
| 
| 
| 
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FRROR MESSAGE STRINGS 9EO U2BU 
1 104312 BUFFER: 
2 104312 BUFONE: .BLKW 258. 
? 105316 BUFTWO: .BLKW 258, 
3 104312 . =BUFFER 
? 104312 HELP: 
8 104312 00 ASCII aha 
9 104313 200 ASCII = <CRLF> 
10 104314 114 111 123 .ASCII @LIST OF Sade oo sd 
11 104332 055 055 055 .ASCI] 9 Qrecenconeeoosn <CRL 
12 104350 124 061 017 .ASCII ari TRANSFER TESTacALF> 
13 104371 124 062 011 .ASCII ate CTOD TEST@<CRLF > 
14 104406 124 063 011 .ASCII a3 MASSBUS_INITIALIZE TEST@<CRLF> 
15 104441 124 064 O17 .ASCII aT4 CLEAR STUCK ACTIVE TEST@<CRLF> 
16 104474 124 065 011 .ASCII aT5 TRISTATE TRANSFER TEST@<CRLF> 
17 104526 124 066 O11 .ASCII até REGISTER SELECT TEST@<CRLF> 
18 104556 124 067 017 .ASCII at? DRIVE TYPE TEST@<CRLF> 
19 104601 124 061 060 .ASCII aT10 DEVICE AVAILABLE TEST@<CRLF> 
20 104633 124 061 061 .ASCII ati! HOLDING REGISTER TRANSFER TEST@<CRLF> 
21 104676 124 061 062 .ASCII ati2 CONTROL STATUS #1 TRANSFER TEST@<CRLF > 
22 104742 124 061 063 .ASCII aT13 ERROR REGISTER #1 TRANSFER TEST@<CRLF > 
235 105006 124 061 064 .ASCII a114 CLEAR OFFSET STUCK ACTIVE TEST@<CRLF> 
24 105051 124 061 065 .ASCII aTi5 OFFSET REGISTER TRANSFER TEST@<CRLF > 
25 105113 124 061 066 .ASCII a116 ERROR REGISTER #2 TRANSFER TEST@<CRLF> 
26 105157 124 061 067 .ASCII ati? SERIAL NUMBER TEST@<CRLF> 
27 105206 124 062 060 .ASCII aT20 CONTROL BUS PARITY DETECTION TEST@<CRLF> 
28 105254 124 061 .ASCII arte CONTROL BUS PARITY GENERATION TEST@<CRLF> 
29 105323 124 062 062 .ASCII at22 RMDA,RMDC FAULT TEST@<CRLF> 
105554 124 062 063 .ASCII ates DISK ADDRESS TRANSFER TEST@<CRLF> 
31 105413 124 062 064 .ASCII ates DESIRED CYLINDER TRANSFER TESTa@<CRLF> 
32 105456 124 062 065 .ASCII at25 ILLEGAL REGISTER TEST@<CRLF> 
33 105510 124 062 066 .ASCII aT26 RESET GO BY INIT TEST@<CRLF> 
105542 124 062 067 .ASCII at27 DIAGNOSTIC MODE TEST@<CRLF> 
35 105575 124 0635 -ASCII @130 MOL TEST@<CRLF> 
105610 124 063 061 .ASCII aT31 WRITE LOCK TEST@<CRLF> 
37 105634 124 063 062 .ASCII aT32 DRIVE FAULT TEST@<CRLF> 
105661 124 063 063 .ASCII aT33 SEEK ERROR TESTa@<CRLF> 
39 105705 124 063 064 .ASCII a134 PIP TEST@<CRLF> 
40 105722 124 063 065 .ASCII aT35 EBL TEST@<CRLF> 
41 105737 124 063 066 .ASCII a736 LAST SECTOR, LAST TRACK TEST@<CRLF> 
42 124 063 067 .ASCII aT37 RMDA COUNT TEST@<CRLF> 
43 106024 124 064 060 .ASCII a140 RMDC COUNT LS La deataeli 
44 106050 124 064 061 .ASCII aT4] LBT TEST@<CRLF 
45 106065 124 064 062 .ASCII aT42 COMPOSITE ERROR elias 
46 106716 124 064 063 .ASCII a143 WRITE GO TEST@<CRL 
47 106140 124 064 064 .ASCII a144 BRANCH MULTIPLEXOR TESTA<CRLF> 
48 106174 124 065 .ASCII a145 SET/RESET GO TESTa@<CRLF> 
49 106222 124 064 066 .ASCII a146 END 1 RESET GO TESTa@<CRLF> 
50 106252 124 064 067 .ASCII a147 SET PULSE TESTa@<CRLF> 
51 106275 124 065 060 .ASCII aT50 SET/RESET IVC TEST@<CRLF> 
52 106324 124 065 061 .ASCII @T51 SET LSC TEST@<CRLF> 
53 106345 124 065 062 .ASCII arse DECODE TESTa@<CRLF> 
54 106365 124 065 ASCII aT53 SET/RESET VOLUME VALID TESTa@<CRLF> 
55 106425 124 065 064 .ASCII aT54 ILLEGAL FUNCTION TEST@<CRLF> 
56 106457 124 065 065 .ASCII at55 OCCUPIED TEST@<CRLF> 
57 106501 124 065 066 .ASCII a@T56 READ IN PRESET TEST@<CRLF> 
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067 .ASCII aT57 RIiP/RMOF TEST@<CRLF> 
060 .ASCII aTé60 RMDA/RMDC/RIP rag gcc? 
061 .ASCII aTé6l OFFSET COMMAND TEST@<CRLF> 
062 .ASCII aTé62 RETURN TO CENTER TEST@<CRLF> 
063 .ASCII aT63 RMDC CLEAR OFFSET TEST@<CRLF> 
064 .ASCII aT64 EBL CLEAR OFFSET TEST@<CRLF> 
065 .ASCII aT65 RUN AND GO TEST@<CRLF> 
066 .ASCII aT66 SET IAE TEST@<CRLF> 
067 .ASCII aT67 SEARCH, SEEK, READ, WRITE TEST@<CRLF> 
060 .ASCII aT70 INVALID TRACK/SECTOR TEST@<CRLF> 
061 .ASCII at? INVALID CYLINDER TEST@<CRLF> 
062 .ASCII at72 SET ACE TEST@<CRLF> 
063 .ASCII aT73 SET RMR TEST@<CRLF> 
064 .ASCII aT74 PGM STATUS CHECK@<CRLF > 
065 .ASCII aT75 DVA/DPR STATUS CHECK@<CRLF > 
066 .ASCII aT76 PORT REQUEST TEST, PART 1@<CRLF> 
067 .ASCII at77 PORT REQUEST TEST, PART 2a<CRLF> 
060 .ASCII @a7100 # PORT REQUEST TEST, PART 3a@<CRLF> 
060 .ASCII a7101 #£RELEASE TEST@<CRLF> 
060 .ASCII @a7102 WRITE ATA TEST@<CRLF> 
060 .ASCII @7103 RESET ATA BY GO TEST@<CRLF> 
060 .ASCII @7104 UNIT READY ATA TEST@<CRLF> 
060 .ASCII @7105 ERROR ATA TEST@<CRLF> 
060 .ASCII @7106 REGISTER TRANSFER ATA TESTa@<CRLF> 
060 .ASCII @a7107 #£=xP SET ATA TEST@<CRLF> 
0671 .ASCII @7110 #£SET WLE TEST@<CRLF> 
061 .ASCII @7111 #£EXCEPTION TEST@<CRLF> 
061 .ASCII @a7112 #RECALIBRATE TEST@<CRLF> 
061 .ASCII @a7113 SEEK TEST&@<CRLF> 
061 .ASCII @7114 #£SEARCH TEST@<CRLF> 
067 .ASCII @7115 SEARCH TIMEOUT TEST@<CRLF> 
061 .ASCII @@7116 DATA COMMAND TESTS (1)a<CRLF> 
061 .ASCI] @7117 DATA COMMAND TESTS (2)a<CRLF> 
062 yest tiga DATA COMMAND TESTS (3)a@<CRLF> 
i < 
105 .ASCII @OPERATIONAL SWITCH SETTINGS@<CRLF> 
055 .ASCII wenn nnn nnn =< CRLF > 
111 .ASCII @SwITCH USE@<CRLF > 
055 .ASCII @------ Pere mere rere wees ==== a<CRLF> 
061 .ASCII a 15 HALT ON a ty 
061 .ASCII oF 14 LOOP ON TEST@<CRL 
061 .ASCII a 13 INHIBIT ERROR FYPEOUTSA<CRLF> 
061 .ASCII a 12 a<CRLF> 
061 .ASCII a 11 INHIBIT ITERATIONS@<CRLF> 
061 .ASCII a 10 BELL ON ERROR@<CRLF > 
040 .ASCII @ 7 L ON ERROR@<CRLF > 
040 .ASCII ao 8 LOOP ON TEST IN SuRC? : 0>a<CRLF> 
040 .ASCII 8 7 TN128@<CRiF> 
040 .ASCII @ 6 TN64a<CRLF > 
040 .ASCII @ 5 TN32a<CRLF> 
040 .ASCII @ 4 ™N16a<CRLF> 
040 ASCII a 3 TN8a@<CRLF > 
040 .ASCI] @ 2 TN4a@<CRLF > 
040 .ASCII ot TN2a@<CRLF > 
040 ASCIZ @ 0 TN1a@<CRIL.F > 
END 200 
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SYMBOL TABLE SFQ 0282 
ABASE = 176700 AUTSIZ 001326 CHRCNT 060267 ED1 104170 EH71 103136 
ACDW1 = 000000 AVECT1= 120254 CKSWR = 104410 ED115 104240 EMS1 072206 
ACDWe = 000000 AVECT2= 000000 CLOCK 001536 ED130 104252 EMS10 072611 
ACPUOP= 000000 Al6é = 000400 CLR = 000040 EDe 104200 EMS11 072654 
DWO = 000000 Al17_ = Q01000 CMNSTA 006724 ED220 104266 EMS12 072745 
ADDW1 = 000000 BAD TMO 562 CNSLO1 062655 ED5 104204 EMS13 073023 
ADDW10= 000000 I = 000010 CNSLO2 062665 ED57 104212 EMS14 073072 
ADDW11= 000000 BBO0O = 000001 CNSLOS 062727 ED65 104220 EMS15 073137 
ADDW12= 000000 BBO1 = 000002 CNSLO4 062736 ED71 104230 EMS16 073215 
ADDW13= Q00000 BBO2 = 04 CNSLO? 062772 EECC = 000020 EMSi7 073276 
ADDW14= 000000 BBO3 = 000010 CNSLO8 063134 EFT 072160 EMS2 072257 
ADDW15= 000000 BBO4 = 000020 CNSLOO 063135 EFT115 072176 EMS20 073337 
ADDW2 = 000000 BBOS = 000040 CNTCLR 054674 EFT130 072200 EMS271 073403 
ADDW3 = 000000 = 000100 62621 EFT132 072202 EMS22 3073462 
DW4 = 000000 BB07 = 000200 ONT = 000100 EFT2 072162 EMS23 073527 
ADDWS = 000000 BB08 = 000400 CPSAVE 057410 EFT220 072204 EMS24 
= 000000 BBO9 = 001000 R = 000015 EFT5 072164 EMS25 07 
ADDW7 = 000000 BiTO = 000001 CRLF = 000200 EFT57 072166 EMS250 076566 
AD = 000000 BITOO = Q00001 CYLMSK= 001777 EFT65 072170 251 076624 
ADDW9 = COO000C BITO1 = 000002 DBCK = 100000 EFT71 072172 EMS252 076670 
ADEVCT= 000000 BITO2 = 0 4 DBEN = 040000 EFT74 072174 EMS253 076723 
= 000000 BITO3 = 000010 DBL = 002000 EF 1 104272 EMS254 076756 
ADR = 000001 BITO4 = 000020 DCK = 100000 EF130 104504 EMS255 077017 
AENV = 000000 BITOS = 040 DDISP = 177570 EF2 104275 EMS256 06 
AENVM = 000000 BITO6 = 000100 DEBL = 0200 EF 5 104276 EMS257 077111 
AFATAL= 000000 BITO? = 000200 DISPLA 001156 EF57 104300 EMS26 073742 
L 062610 BITO8 = 400 DISPRE EHT1 072032 EMS2 077145 
AMADR1= 000000 BITO9 = 001000 D = EHT115 072072 EMS261 077176 
AMADR2= 000000 BIT] =9 2 = EHT130 072076 EMS262 077235 
AMADR3= 000000 BIT10 = 002000 DPE = 000010 EHT132 072102 EMS27 074021 
AMADR4= 000000 BIT11 = DPEH] = EHT142 072106 EMS3 072326 
AMAMS1= 000000 BIT12 = 010000 DPELO = 020000 EHT145 072112 EMS30 074065 
AMAMS2= 000000 BIT135 = 02 = 00 EHT150 072116 EMS300 0 
AMAMS3= 000000 BIT14 = 040000 DRIVES 063156 HT2 072036 EMS301 077316 
AMAMS4= 000000 BIT15 = 100000 = 000 EHT213 072122 EMS3502 077341 
= 000000 BIT2 = 000004 DRVCLR= 000010 EHT220 072126 EMS305 
AMSGLG= 000000 BITS = 000010 = 000200 5 072042 EMS 077377 
AMSGTY= 000000 BIT4 = 000020 DSWR = 177570 EHT57 72052 EMS3506 077406 
AMTYP1= 000000 BITS = 000040 DIE = EHT65 072056 EMS307 077422 
AMTYP2= 000000 BIT6 = 000100 DULPRT= 024024 17 072046 EMS31 074145 
AMTYP3= 000000 BIT? = 000200 DVA = EHT71 72062 EMS310 077463 
AMTYP4= 000000 BIT8 = 000400 DVC = EHT74 066 EMS311 00 
= 001000 BIT9 = 001000 EBL = 020000 H1 102654 EMS312 077544 
APASS = 000000 BLNKS1 063413 ECH = 1 EH115 103213 EMS313 60 
= 100000 BLNKS2 06 CI_ = 004000 EH130 103310 MS314 077635 
APR IOR= BLNKS3 063411 ECRC = 001000 EH132 =. 103426 EMS315 077662 
APTCSU= 000040 BLNKS4 063410 EDT1 072132 EH142 = 103524 EMS316 077710 
APTENV= 000001 BOTADR EDT115 072150 EH145 103622 EMS317 077731 
APTSIZ= 000 BOTFLG 060266 EDT130 072152 EH150 8103737 EMS32. 0 074216 
APTSPO= 000100 BPTVEC= 000014 EDT132 072154 H2 102732 EMS320 077751 
ASWREG= BSE = 072134 EH215 104055 EMS321 077771 
ATA = 100000 BUFFER 104312 EDT220 072156 EH220 104132 EMS322 100011 
ATESTN= BUFONE 104312 072136 H3 102740 EMS323 100031 
A = 000377 BUFTWO 105316 EDT57 = 072140 EHS 102747 EMS324 100050 
ATNTBL 063516 CC = 004000 EDT65 072142 EH57 103024 EMS325 100070 
AUNIT = 000000 CH = 002000 EDT71 072144 EH65 103062 EMS326 100101 
AUSWR = 000000 CHGADR 001330 EDT74 072146 EH? 103005 EMS327? 1001171 
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E SEQ 028% 
| EMS33 074276 EMS43 074707 EMT112 066230 EMT175 067672 EMT257 071322 
' EMS330 100117 EMS44 074760 EMT113 066250 EMT176 067710 EMT26 064652 
| —EMS331 100136 EMS45 075021 EMT114 066274 EMT177 067726 EMT260 071346 
' EMS332 100166 EMS46 8075076 EMT115 066316 EMT2 064162 EMT261 071372 
| —EMS333 100204 EMS47 075160 EMT116 066342 EMT20 064522 EMT262 071416 
MS334 100220 EMSS 072424 EMT117 066362 EMT200 067726 EMT263 071434 
100230 EMSSO 075220 EMT12 064376 EMT201 067744 EMT264 071452 
100253 EMS5SOO 101525 EMT120 066402 EMT202 067762 EMT265 071476 
10027 EMS5SO1 101666 EMT121 066426 EMT203 070000 EMT266 071514 
074326 EMSSO2 10171 EMT122 065446 EMT204 070022 EMT267 071532 
1003 EMS503 101763 EMT123 066466 EMT205 070042 EMT27 64 
10031 EMSS5SO4 102010 EMT124 066512 EMT206 070062 EMT270 071546 
100326 EMSSO5 102043 EMT125 066530 EMT207 070112 EMT271 071572 
1 0 EMSSO6 102116 EMT126 066550 EMT 064542 EMT272 071616 
100374 EMS507 102157 EMT127 066566 EMT210 070126 EMT273 34 
100423 EMS51 075267 EMT13 064414 EMT211 070144 EMT274 071652 
100451 EMS510 102247 EMT130 066612 EMT212 070162 EMT275 071670 
100467 EMS511 102322 EMT131 066630 EMT213 070174 EMT276 071710 
074355 EMSS2 075336 MT132 06664 EMT214 070224 EMT277 071726 
EMS53 07537 EMT133 066666 EMT215 070236 EMT 
100515 EMS54 075440 EMT134 06670 EMT216 070256 EMT 30 71 
100533 EMSS5S 075515 EMT135 066722 EMT217 070272 EMT300 071752 
100547 EMS56 075573 EMT136 066740 EMT 06 EMT301 071776 
100573 EMSS57 075666 EMT137 752 EMT220 070306 EMT302 072014 
100626 EMS6 072474 4 064432 EMT221 070324 EMT 31 2 
100650 EMS60 075752 EMT140 770 EMT 222 34 EMT32 064746 
EMS600 102421 EMT141 067010 EMT 223 EMT33 064762 
074417 EMS601 102451 EMT142 7024 EMT224 070376 EMT 34 5 
100712 EMS602 102471 EMT143 067042 EMT225 070416 EMT35 065016 
100740 EMS603 102532 EMT144 067056 EMT226 070440 EMT36 © 065032 
EMS604 102553 EMT145 067100 EMT227 0456 EMT37 065046 
101007 EMS605 EMT146 067122 EMT23 EMTS 2 
101024 EMS606 102616 EMT147 067140 EMT230 0704 EMT40 065062 
101045 EMS607 2636 EMT15 06445 EMT231 070512 EMT41 065102 
101052 EMS61 076024 EMT150 067152 EMT232 070526 EMT42 065116 
101075 EMS62 076077 EMT151 067174 EMT233 070550 EMT43 065142 
074447 EMS63 076160 EMT152 7206 34 070572 EMT44 065154 
101145 076220 EMT153 067222 EMT235 070620 EMT45 065170 
101162 EMS65 076270 EMT154 067242 EMT 236 EMT46 
101211 076331 EMT155 067262 EMT237 070672 EMT47 065220 
101243 EMS67 EMT156 300 EMT2 EMTS 064252 
101247 EMS7 072540 EMT157 067322 EMT240 070712 EMTS5O 065242 
EMS70 76520 EMT16 466 EMT241 070736 EMTS1 
101314 EMTVEC= 0000 EMT160 067340 EMT242 070762 EMTS2 065304 
30 064154 EMT161 067370 EMT 243 EMTS3 065320 
072373 EMT10 064342 EMT162 067406 EMT244 071032 EMT54 
074501 EMT100 065756 EMT163 067424 EMT245 071050 EMTSS 065354 
34 EMT101 065776 M7164 067446 EMT246 071066 EMTS5S6 065374 
101356 EMT102 016 EMT165 067470 EMT247 071112 EMTS7 065410 
101373 EMT103 066036 EMT166 067514 EMT2 EMT6 
101402 EMT104 062 EMT167 067534 EMT250 071130 EMT60 065424 
101443 EMT105 066102 EMT17 064504 EMT251 07 EMT61 065440 
101462 EMT106 066122 EMT170 067556 EMT252 071200 EMT62 065460 
101472 EMT107 066146 EMT171 067570 EMI253 071224 EMT63 
101505 EMT11 064360 EMT172 067604 EMT254 071242 EMT64 065514 
074557 EMT110 066166 EMT173 067622 EMT255 071260 EMT65 065526 
074625 EMT111 066210 EMT174 067644 EMT256 071304 EMT66 065542 








L 6 
_ CZRMPBO RMO5/3/2 DSKLS TST 1 MACRO V04.00 4-APR=-81 01:24:25 PAGE 45-4 


| SYMBOL TABLE SEQ 0284 
| EMT6? 065556 ILF54 = 000054 MwD = 000010 PD ~—s =: 000070 RMER10 001426 
| EMT 0643 ILF56 = 000056 MWP == 000010 KDCHR = 104411 RMER2 = 000042 
EMT70 065574 ILF64 = 000064 MXF = 001000 RDLIN = 104412 RMER21 001400 
| EMT71 065614 ILF66 = 000066 063404 RDOCT = 104413 RMER2O_ 001454 
EMT72 06564 ILF74 = 000074 NDTMSK= 115760 RDY = 000200 = 000036 
EMT73 065654 ILF76 = 000076 NED = 010000 REA 007120 RMR 001372 
EMT74 065704 ILR = 000002 NEM = 004000 READY] 007146 RMHRO 001450 
EMT7S 065714 ILRGSO= 000050 NONE 063205 RECAL = 000006 RMLA = 
EMT76 065726 ILRG52= 000052 = 000000 RESREG= 104415 RMLAI 001356 
EMT77 065742 ILRG54= 000054 NOTAVL 063344 RESVEC= 000010 RMLAO 001432 
ENRGDT 064154 1LRG56= 00005 NOTPRS 063327 REX = 010000 RMMRI = 
EQUALS 062 ILRG60= 00C''60 NOTRM 063271 = 040000 RMMRII 001362 
ERR = 040000 ILRG62= 000 NSA = 100000 RGDTPT 063526 RMMRIO 001436 
ERRNMB 060262 ILRG64= 00/064 occ = 100000 = 000072 RMMR2 
ERROR = 104000 ILRG66= 00U066 OFD = 000200 RIP = 000020 RMMR21 001376 
ERRTYP 057414 ILRG70= 000070 OFFSET= 000014 RLEASE= 000012 RMMR20 001452 
ERRVEC= ILRG72= 000072 = 000001 S$ = 000016 = 
ERTYOO 060270 ILRG74= 000 ONES 063566 RMASI 001354 RMOFI 001370 
ERTYO! 060275 ILRG76= 000076 OPE = 020000 RMASO 001430 RMOFO 001444 
ERTYO2 060305 IOTVEC= 000020 OPI = 020000 RMBA = 000004 s 
ERTYO3 060314 IPCKO = 000001 = 000200 RMBAE = 000050 = 
ERTYO4 060322 IPCK1 = 000002 PACACK= 000022 RMBAEI 001406 RMSNI 001366 
ERTYOS 060325 IPCK2 = 000004 PAKACK= 000022 RMBAEO 001462 RMSNO 001442 
ESRC = 004000 IPCK3 = p = 000010 RMBAI 001342 = 
FER = 000020 IR. = 000100 PAT = 20 RMBAO 001416 RMWCI 001340 
FMT16 = 010000 ive = PCLOCK 054300 $1 = 000000 RMWCO 001414 
FNCDTB 063416 LBC = 002000 PCOUNT 054366 RMCS1I 001336 ROA = 100000 
FNCMSK= 000077 iat. = PDA = 000400 RMCS10 001412 ROB = 040000 
FO. = 000002 LCLOCK 054316 PFECH 060332 $2 = 000010 RTC = 000016 
FI = LCOUNT 054366 PFECH1 0603 RMCS2I 001346 R6 =%000006 
F2 = 000010 aoe PFECH2 060430 RMCS20 001422 R7  =%000007 
Fs = 000020 iODEV 063312 PFECHS 060446 RMCS3 = SADMSK= 000377 
‘ .s LS = 000004 PFECH4 060454 RMCS3I 001410 SAVREG= 104414 
GETBUF 001336 LSC = 004000 PGE = 002000 RMCS30 001464 SA1 = 000001 
= h Sa PGM = 001000 RMDA = 000006 SA16 = 000020 
GTSWR = 104407 LSTOP 054430 PHA = 000200 RMDAI 001344 SA2 = 000002 
HCE = 000200 LSTRK 001334 PIP =0 RMDAO 001420 SAG = 
HCI = 002000 MCLK = 0 PIRQ = 177772 RMDB = SA8 = 000010 
HCRC = 0004 MCPE = 020000 PIROVE= 000240 RMDBI 001360 sc os 
HELP 104312 MDF = 000100 PLCLK 054324 RMDBO 001434 SCOPE = 
HT = 000011 MDPE = 000400 PLFS = 002000 RMDC = SCTMSK= 003700 
IAE = 002000 = PLSTP 054434 RMDCI 001372 SCO. = 0001 
IBSAVE 057412 MIXED 063526 PRO = RMDCO 001446 SC1 = 000200 
IDXMSK= 77 es PRI = RMDS = 12 SC2 = 0004 
= 000100 MOH = 020000 PR2 = RMDSI 001350 SC3. = 001000 
e 1 MOL = 010000 PR3 = 000140 RMDSO 901424 th = 
= 2 MRD = 002 PR4 = 000200 RMDT = 0000 SEARCH= 000030 
= 000024 MRIAAA= 051401 PR5 = 000240 RMDTI 001364 SEEK = 000004 
= 000026 S = 000040 PR6 = 000300 RMDTO 001440 SETOM 054572 
= 000030 MSC = 2 PR7 = 000340 RMEC1 = 000044 SETVV 054450 
= 000032 MSDRVS 063212 PS = 177776 RMECII 001402 SHUT 061730 
= 000034 E = 100000 PSEL = 00200 RMEC1O 001456 SIZCLK 054040 
= 000036 MSEN = 010000 PSTOP 054422 RMEC2 = 000046 SKI = 040000 
= 000040 MSER = 000200 PSw = 177776 RMECOI 001404 SNGPRT= 020024 
= 000042 MSGDRV 063226 PUTBUF 001412 RMEC20 001460 STACK = 001100 
= 000044 MSHELP 062624 PWRVEC= 000024 RMER] = 000014 STANDA 006242 
= 000046 MUR = 001000 QUES 062615 RMER1I 001352 START 004652 
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| CZRMPBO 

| SYMBOL T 
START 642 
START2 656 

| STKLMT= 177774 
STOPCL 001540 
Sw 001154 
SWREG 000176 
SwO = 000001 
swOO = 000001 
SwOl = 000002 
SwO2 = 000004 
swo3 = 000010 
SwO4 = 000020 
swOoS = 000040 
Ssw06 = 000100 
SwO? = 000200 
SwO8 = 000400 
swo9 = 001000 
Sw1 = 000002 
Swi0 = 002000 
SW11 = 604000 
Sw12 = 010000 
Sw13 = 020000 
Sw14 = 040000 
Sw15 = 100000 
Sw2 = 000004 
Sw3 = 000010 
Sw4 = 000020 
Sw5 = 000040 
SW6 = 000100 
SW7 = 000200 
Sw8 = 0004 
Sw9 = 0017 
SYSTAT 063234 
TADMSK= 177400 
TAG = 020000 
TAGADR= 001114 
TAP = 040000 
TAl = 00 
TA16 = 010000 
TA2 = 001000 
TAS =6= 002000 
TAB = 004000 
TBI TVE= 14 
TIME 001532 
TKVEC = 
TPVEC = 
TRAPVE= 000034 
TRE = 040000 
TRTIVEC= 000014 
TST = 010000 
TSTN™B 060260 
TSTQUE 001466 
TST1 7 
TST1IO0 §=©—.012556 
TST100 035446 
TST101 035600 
TST102 035770 
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| 
| SYMBOL T SEQ 0286 
| sem 063257 $SwO8T 056560 STMPO 001174 $TRPAD 062126 SUNIT 001234 
063264 $TESTN 001226 STMP1 001176 $TSTM 001104 $UNITM 001110 
SRINAD 054032 STIMES 001206 $TMP2 001200 STSTNM 001116 $US 001246 
SSAVRE 054722 $TKB 001162 $TMP3 001202 STTYIN 061656 $VECT1 001272 
SSAVR6 062326 $STKCNT 060460 STMP4 001204 055016 VECT2 001274 
056100 $STKINT 060470 $™TN = Q00121 $TYPDS 055072 $XOFF = 000023 
SSE TUP= $STKQEN= 060467 01166 $TYPE 055544 $XON = 00002 
$STUP = 177777 $TKQIN 060462 STPFLG 001173 $TYPEC 055756 S$XTSTR 056116 
$SVLAD 056506 $TKQOU 06046 TPS 001164 $TYPEX 056076 $$GET4= 000000 
$SVPC = $TKQSR 06046 T 62054 $TYPOC 055342 $$SWO8= 0001 
$SWR = 167400 $TKS 001160 $TRAP2 062114 S$TYPON 055356 SOFILL 055541 
SSUREG 001264 $TKSRV 060540 $TRP = 000016 $TYPOS 055316 .$X = 001100 


- ABS. 110742 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 62208 WORDS ( 2435 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
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CROSS REFERENCE TABLE (CREF Vv01-05 ) SEQ 0287 

SEGETS 14-20 14-204 

$$SWO8 24-1 24-1 24~| 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 
24-1 24~) 24-1 24-1 24-1 24-1 24~1 24-1 24-1 24-1 24-1 24~1 24-1 24-1 
24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24~1 24-1 24-1 24-1 
24-1 24-1 24-1 24-1 24-1 24~1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 
e4~1 24-1 24-1 24-1 24-1 24~1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 
24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 
24-1 24-1 24-1 24-1 24-1 24-1 24-1 24~1 24-1 24-1 24-1 24-1 24-1 24-1 
24-1 24-1 24-1 24=1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24~1 24-1 24-1 
24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 at 24-1 24-1 24-1 24-1 24-1 

1 


SAPTHD 5-8 5-84 

SASTAT 31-1 31-1 

SATY1 31-14 

SATYS 23-1 31-14 

SATYS 25-1 31-14 

SATYC 31-1 31-14 

SAUTOB 6-0" 9-28* 27-1 27-1 27-1 

$SBASE 9-76 10-35 10-42* 1~56 13-1 13-67 13-73 13-106 13-137 13-159 13-329 13-521 13-546. 
13-557 13-610 13-677 13-781 13-794 13-864 13-973 13-996 13-:49 13-:77 13-:97 13-741 13-<03  13-=02 
13-=19 13-=77 135->42 13-703 13-805 13-866 13-A26 8 13-876 13-C78 13-031 13-084 13-£64 13-E99 
1 O 13-H70) 13-145 13-J84 3 13-K64 “L96 6 13-992 13-N460 13-N79 13-009 13-048 13-074 
1SP18 I15P39 15 13-Q10 13-@87 13-R35 13-R85 9 13-S22) 13-S72 13-129) «613-147 = 13-T70)S ss -«113-T99— «113-28 
LF ind Lt ane § LP a 13-V86 13-WO7) 13-W56 4 0135-K01)09=—s-«*13=K71) Ss «*13-¥48 = 13-\10—ss«*13-_010—-13-cO7)—s-« 113-c75 | 

$BDADR 6 13-14% 13-15* 13-35% 135-36" 13-67% 13-540" 13-541% 13-553* 13-561* 13-562* 13-623* 135-624* 13-636" 
15-657* 135-650* 135-651* 13-670* 13-671* 135-690" 135-691* 13-698* 13-699* 13-706" 135-707* 13-719* 13-720* 13-727 
13-728* 13-736* 13-737* 13-749% 135-750% 13-773* 135-774* 13-789% 13-790* 13-797* * 13-867* 13-868* 13-976 
15-977 =13-:135* 135-:14% 13-;09* 15-;10* 13-;20* 13-;21* 13-; 135-;35* 13-;46* 13-:47* 13-<15* 13-<16* 13-<42* 
13-=05* 13-=21* 135-=22* 15-=80* =81* 13->45* 13->46* 13-707* 13-208* * 135-2?30* 13-2?46* 13-247" 13-262 
13-?63* 15-788* 135-289 * 13-a10* 13-a70* 71* 135-A29* 135-A350* 13-B811* 13-Bl2* 13-878* 13-B79* 15-(81* 
13-C82* 13-D355* 135-D34* 135-D87* 13-D88* 13-E66* 13-FO1* 13-FO2* 13-G43* 13-G57* 15-G58* 13-G70* 13-G95* 13-G%6 
13-H735* 135-147" 135-148* 13-J86* 13-J87* 135-K32* 135-K3535* 13-K 13-K85* 13-L05* 13-L06* 13-126* 13-i27* 13-160« 
13-L61* 13-L75* 13-L76* 13-L87* 135-L88* 13-L98* 135-L99* 135-M79* e -3 * 135-N27* 13-N81* 135-N82* 13-034 
13-035* 13-043* 13-044* 13-050* 13-051* 13-0768 13-077* 135-P13* 13-P14* 135-P20* 135-P21* 1 * 13-P44* 135-P70% 
135-P71* 135-R21* 13-R22* 13-R65* * 13-SO9* 13-S10* 13-S59* 13-S60* 135-S74* 13-S75* 13-142" 13-T55* 13-164" 
13-T65* 13-194* 13-T95* 13-U23* 13-U24* 13-U52* 135-U55* * * 135-V15* 13-V16* 13-v28* 13-Vv29* 13-v47 
13-V48* 13-V67* 13-V68* 135-V79* 13-V80* 13-wWO1l* 135-WO02* 13-Ww28* * 13 * 135-W81* 13-K32* 15-K353* 135-X93" 


-j51* 


j 1 
13-1146* 13-144* 13-145* 13-m01* 135-m02* 13-m33* 135-m34* 16-23" 16-24% 17-228 17-25% 42-1 42-2 42-4 
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- CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0289 
 SDDW7 = 6-04 
' SDEVCT 6-04 
SDEVM = 6-0F «= 9=68* = 9-79 9-120 «10-63% = 10-708 = 10-97" = 10-98 = 11-4 11238 27-6 
| SDOAGN 14-20 14-20 14-20# 
$DTBL 21-1 = 21-14 
14-204 25-1 
23-1 25-1 B13 
9-72 23-1 23-1311 
14-204 
14-94 


24-1 24-1 24-1 24-1 241% = 25-1 25-1 25-18 
24-1 24-1 24-1 24-1 


es~1 25-1 25-1* 25-1* 26-54 


14-20 14-20* 25-1 25-1 25~-1* 
24-1* 25-1 25-1 25-1 25=1 


31-1% 9 31-1% 2-31-18 


23-1 23-1 

bo al 

13-12* = =135-13* 13-32% 13-35% 13-34% 13-209% 13-253" 13-312* 13-552* 13-573* 13-583* 13-584 
13-6355* 13-647* 13-648 135-669* 13-689* 13-697* 13-705* 13-718* 13-726* 13-735* 13-746* 13-747 
13-799* 13-838* 13-8359 13-857* 13-869* 15-940* 13-941 13-962* 13-963* 13 13-981* 13-986 
135-:435* 135-:53* 13-;08* 13-;19* 135-;33* 13-;45* 13-;73* 13-:74 13-:94* 13-<O5* 13-<14* 13-<48 
13-=14* 13-=30* 135-=40* 135-=51* 13-=68* 15-=89* 13->00* 13->12* 13->27* 13->47* 13->65* 13->87* 
13-227 =. 13-2731) = 13-?40* 13-750" 13-254 135-756* 135-260 13-764 13-2?82* 13-2?85* 135-286 13-a18« 
135-048* 13-049 135-079* 13-089* 13-A05* 135-A08* 13-A09 135-A351* 13-A59* 13-A79* 13-B24* 13-833 
13-B851* 13-B52 13-B81* 13-CO7 15-€15* 13-C18* 13-C19* 13-C28* 13-€49 13-C56* 13-C59* 13-C71« 
135-D16* 13-D17 13-D19* 13-D55* i3-D73* 13-D98* 13-E00* 13-E48* 13-E51* 13-E52 13-£87* 13-F1 
13-G42* 13-G49* 13-G52* 13-G55 13-G71* 135-G85* 13-G89* 135-G92* 13-G97 1 7* 13-118* 13-163 
13-192 = 135-KOO* 3 135-K14* 15-K15* 135-K16 13-K44* 135-K59* 13-K83* 13-L04* 135-L25* 13-L59*% 13-M12 
15-M76* 13-M77 8 13-N19* 13-N22* 135-N235) 135-N835* 13-011* 13-052* 13-P04* 13-P12* 15-P34* 13-P62 
13-Q05* 13-R17* 13-R18* 13-R19 13-R64* 135-SOB* 135-S61* 13-S95* 13-S96 13-T41* 135-T54* 13-163 
13-V46* 13-V69* 13-V81* * 135-W24* 13-W25 “W82* 135-X31* 135-xK95* 13-Y¥22* 13-Y79* 13-219 
13-C32* 135-£49* 13-[72* 13-\46* 13-\89* 13-J23* 13-166* 13-*11* 13-*28* 13-*53* 13-*54* 13-*55 | 
13-17% 13-'77* 13-a22* 135-a39* 13-a92* 13-b09* 13-b50* 15-b51* 13-b52 13-c50* 13-c66* 13-d10 
13-e03* 13-6€34* 13-e59* 13-e60 13-e91* 15-f29* 13-f63* 13-g01* 13-g04* 13-g05 13-hO1* 13-h17* 
13-1351* 13-i132* 13-161* 135-{95* 13-j50* 135-j79* 13-k15* 135-k44* 13-C12* 13-134" 13-135* 13-136. 
135-182* 13-183* 13-189* 13-193 13-m23* 13-m26 16-25* 17-21* 42-1 42-5 42-5 42-6 
14-204 

29-1 

4-678 

24-1 24-1 24-1* 24-1* 

30-14 


27-1 27-1 71 DPT 
25-1 25-1 5-1 25-1 Sate 5=1* 26-49 
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CZRMPBO RMO5/3/2 DSKLS TST 1 


15=43« 
13-\92s 
13=h21* 
15<418 


27=1 

\ 

f 
15=40* 


25-1 27~1 27=1 
5 5 
4 4 
13 


25=1 
5 
5 
4 
5 
3 
3 
15 


x“* «UN & 





13-a664 


13-8764 13-C78 


13-<03 


13-a66 


13-329 
13-5574 13-5574 13-610 


13-7814 13-7818 13-794 


One eee eR ee ee we - = - 


13-734 


13-73 
135-1594 13-1594 13-329 
13-557 


13-73 
13-557 


31=1* 


31-1 


13-A26 


13-A26 
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SEQ 0291 


CZ7RMPBO RMOS/3/2 DSKLS TST 1 


9-28 


4-9784 9-25 


9-28 


24-1 


24-1 
27-1 


24=1 
27-1 


14-20"  14=20« 
27=1 27-1 


25-1 


gs 





24-1 24-1 24-1 24-1 


24-1 


4-679 
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SEQ 0292 
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$TKQOU 27- 
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MMMM PMN 
ee ee oe 
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13-T70 
15-_01 
13-Kk51 


13-170 


13-x014 13-X71 
01 
25-1 


13- 


13-P184 13-P39 
13-9774 


13-087 


24-18 


24-18 


6-04 


$TTYIN 27-1 


LLL OE AE I ty ek. em ~-s 
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A et en ee 


SO ET Tc eS a amet 
OL LE SLO AS ES EL A TL CE IL i eI tt i I I itt tt ten i te a ea 


ee 
CZRMPBO RMO5/3/2 DSKLS TST 1 MACRO V04.00 4-APR-81 01:24:25 PAGE S-8 


CROSS REFERENCE TABLE (CREF vV0O1-05 ) SEQ 0294 
13=w56 13=-w564 13-w564 15-x01 13=x014 135=K014 13x71 13=K714 13=K714 13-Y48 13-Y484 13-Y484 13-\10 13=-\108 
13=\10# 13-01 13=_01# 13-_01# 13-cO07 13=cO7# 13=cO7# 13=c75 13=c75H@ 13-c75H@ 13<g77 =13q77# = 13-g77# 13-451 
13-k51@ 13-K51¢4 

AENV 6-0 6-0 

AENVM 6-0 6-0 

AFATAL 6-0 - 

ALL 10-69 32-44 

AMADR? -0 - 

AMADR2 6-0 6-0 

AMADR3S 6-0 6-0 

AMADRS 6-0 6-0 

AMAMS i 6-0 6-0 

AMAMS2 6-0 6-0 

AMAMSS 6-0 6-0 

AMAMS4 6-0 6-0 

AMSGAD 6-0 6-0 

AMSGLG 6-0 6-0 

AMSGTY 6-0 6-0 

AMTYP1 6-0 6-0 

AMT YP2 6-0 6-0 

AMTYPS 6-0 6-0 

AMTYPG 6-0 6-0 
4-770 4-781 13-695 13-724 13-N20 13-5857 13-561 33-77 33-78 33-81 33-82 33-85 33-86 

APASS 6-0 

APE 4-95 34 

4PRIOR 6-0 

APTCSU 23-1 31-14 

APTENV 23-1 25-1 31-1 31-14 

APTSIZ 9-23 31-14 

APTSPO 23-1 31-1 31-14 

ASWREG 6-0 6-0 

ATA 4-7504 13-V15 13-V44 13-V65 13-V69 13-V77 13-v81 13-v98 15-w00 13-Ww23 13-W46 13-wW78 13-w82 15-788 
13-790 13-364 13-166 13-'75 13-'77 33-58 33-59 33-60 33-635 33-64 33-67 33-68 33-69 33-70 
33-71 33-72 33-73 33-74 33-75 33-76 33-79 32-80 33-83 33-84 33-87 33-88 

ATESTIN 6-0 6-0 

ATNMSK 4-7874 13-v08 

ATNTBL 9-79 9-120 10-97 11-17 13-VO07 34-34 

AUNIT 6-0 6-0 

AUSWR 6-0 6-0 

AUTSIZ 7-04 9-65* 9-118 10-100* 

AVECTT 44-9764 6-0 6-0 

AVECT2 -0 6-0 

BADT 9-34 9-25 

BAI 4-9424 

BBOO 4-8714 

BBOT 4-8714 

BBO2 4-8714 13-183 

BBOS 4-8714 135-179 13-182 

BB04 4-8714 

BEO5 4-8714 

BBO6 4-8714 13-[94 13-[95 13-£96 13-[97 13-£98 13-£99 13-\00 13=\07 13-\02 13=-\03 

BBO 7 4-8714 

BB08 4-8714 

BB09 46-8714 

BITO 4-6824 15-211 13-529 13-531 13-534 13=+536 13-575 13-639 13-722 13-730 13-811 13-819 13-832 13-885 
Fag aes 44 sag 13-922 13-934 13-;12 135=;55 13-;65 13==42 15-=91 13+>56 13=-?20 13-820 13-081 


LLL EL OE LLL OE ELLE ETE Fe 


SLE — + bene oe _———— — ~ = oe oe 


J 7 
| CZRMPBO RMO5/3/2 DSKLS TST 1 MACRO VO4.00 4-APR=-81 01:24:25 PAGE S-9 


CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0295 
| BITOO mM 4-6824 4-694 4-742 4-760 4-779 4-816 4-834 4-871 4-945 4-965 24-1 24-1 25-1 
| BITQI 4-682 4-6824 4-693 4-74) 4-778 4-815 4-835 4-871 4-945 4-962 
/ BITO2 4-682 46-6824 4-692 4-740 4-777 4-814 4-832 4-871 4-945 4-961 
| BITOS 4-682 4-6824 4-691 4-739 4-776 4-813 4-831 4~871 4-882 4-942 4~960 
| BITO4 4-682 4-6824 4-690 4-738 4-775 4-830 4-871 4-941 
| BITOS 4-682 4-6824 4-689 4-774 4-812 4-829 4-871 4-940 
| BiTO6 4-682 4-6824 4-759 4-773 4-795 4-811 4-828 4-871 4-926 4-939 4-959 
B1T07 4-682 4-6824 4-758 4-772 4-794 4-810 4-827 4-852 4~871 4-881 4-925 4-938 
BIT08 4-682 4-6824 4-735 4-757 4-771 4-793 4=809 4-826 4-871 4-924 4-937 - 
BITO9 me a 4-6824 4-734 4-756 4-770 4-792 4-808 4-825 4-871 4-923 4-936 24-1 24-1 25-1 
| BIT1 4-6824 13-255 13-534 13-536 13-587 13-655 15-752 13-842 13-944 13-;23 13-;77 13-=53 13-=60 13->02 
135->67 13-249 13-8351 13-a91 8 13-A61 
BIT10 4-6824 4-733 4-755 4-76 4-791 4-807 4-824 4-851 4-868 4~880 4-922 4-935 4-958 25-1 
BIT11 4-6824 4-688 4-732 4-754 4-768 4-806 4-823 4-842 4-850 4-867 4-879 4-934 4-957 24-1 
BIT12 4-6824 4-731 4-753 4-767 4-805 4-822 4-849 4-866 4-878 4-933 4-956 
BIT13 4-6824 4-752 4-766 4-804 4-821 4-841 4-865 4-877 4-921 4-932 4-955 25-1 
BIT14 4-6824 4-751 4-765 4-803 4-820 4-840 4-864 4-876 4-888 4-920 4-931 4-954 24-1 
BIT15 4-682# 4-750 4-764 4-802 4-819 4-839 4-863 4-875 4-887 4-919 4-930 4-953 


BIT? 4-6824 9-72 


BLNKS2 9-134 10-34 10-48 32-344 


BLNKSS 9-83 32-324 
BOTADR 26-81* 26-99* 26-102 26-117 26-1614 
BOTFLG 26-62* 26-109* 26-112 26-115* 26-1624 


BSE 4-8754 
BUFFER 13-S40 13-k64 43-14 43-5 
ONE 43-24 
BUFTWO 43-34 
cc 4-8674 13-[94 13-95 -[96 13-[97 13-£98 


13-99 13-\00 13-\01 13-\02 13-\03 13-*85 = 13-*86—s:«113-*87 
13-*94 13-b85 13-b86 13-b87 13-b88 13-b90 13-b91 13-b92_ 
13-m51 13-m52.—s:«*13-m53.—s«413-m54.—Ss«d13-m55.—s«13=m56—Ss«~113-m90 1 : 
8684 13-[96 13-(99 13-\00 13-\01 13-\02. 13-\03 13-e55) = 13-g38. = 13-g39 
13-g50 13-128 «13-129 13-163. 013-164 13-17313-m22.— 13-23 
3-m64 3-m65 13-mé 13 

CHGADR 7-04 140 G-t7e 10625 10-276 

CHRCNT 26-63* 26-86% 26-92" 26-93 26-96% 26-100 26-105" 26-116* 26-1634 

CLOCK 7-0  13-K49 13-P84 13-¥15 13-c59 13-e84 13+f56 13-994 13-h38 13-124 13-186 13-j72 13-05 15-13 


CLR 4-9408 9-85 19-57 18-10 


CNSLO3 10-44 32-104 





Le OEE A ORE GR <A ret ke ee ee ee 


SEQ 0296 
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| CROSS REFERENCE TABLE (CREF VO1-05 ) 
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SEQ 0297 
13"k27 0 13*k3400 —13"k355) | —135"k99) 13-139) = 13-140 


15-S$52 


135=P57 


7 


L 
MACRO V04.00 4=-APR=-81 01:24:25 PAGE S-11 


13=D06 13-D68 


13=€44 


| CROSS REFERENCE TABLE (CREF VO1-05 ) 
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13-D68 
13-G67 

3-k 38 
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3-015 
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- CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0298 


ED1 38-1 42-14 
38-10 42-78 


84 
38-2 38-7 42-28 


mn 
Oo09 
mf —_ 
—_ 
Ww 
oo 
‘ 
oo 


38-3 42-34 
EDS7 38-4 42-44 
38-5 42-54 
ED71 38-6 42-64 
ECT) 8-3 8-49 8-52 8-55 8-58 8-61 8-64 8-70 8-73 8-76 8-79 8-82 8-85 8-88 
8-91 -94 8-97 8-100 8-106 8-109 “112 8-115 8-118 8-121 8-124 -127 -130 8-133 
8-136 8-139 8-145 -148 8-151 8-154 8-157 8-166 8-169 8-184 8-187 8-196 8-199 
8-205 8-208 8-214 8-217 8-220 8-223 8-226 8-229 8-235 8-238 8-244 8-247 8-253 2 
8-259 8-277 8-280 8-283 8-286 8-298 8-301 8-307 8-310 8-316 8-319 8-322 8-325 8-328 
8-334 8-340 8-343 8-346 8-349 8-355 8-358 8-367 8-376 8-379 8-385 3- 8-391 8-394 
8-397 8-424 8-427 8-430 8-445 8-448 8-451 8-454 8-457 8-460 8-473 8-479 8-485 8-488 
8-492 8-495 8-498 8-501 8-504 8-508 8-511 8-515 8-518 8-521 8-524 8-527 8-5 8-533 


EDT130 8-265 8-2 8-304 38-94 
EDT132 8-271 8-274 8-289 8-292 8-295 8-415 38-104 
ECT? 38-24 


EDT65 8-160 8-163 8-193 Sy 8-211 28-54 


39-1 39-5 39-6 42-114 


EFTIIS 8-232 8-241 8-250 8-262 8-315 8-331 B-337 8-361 8-364 8-370 8-400 8-406 8-409 8-412 


3°24 
4435 5-45 8-439 8-442 359-114 
8-15 6.8 8-22 39-34 
8-142 39-44 


8-160 8-163 8-193 8-202 8-211 39-5# 
8-181 39-74 





ee SSS sesh les se ils ssh ids en eh noe ah nae ene ee Re ns ee, re ee eee ee - . 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0299 
EH1 37-1 41-18 
EH115 37-9 «1-144 
EH130 37-10 41-168 
EH132 37-11 41-188 
EH142 37-12 «= 41-204 
EH145 37-13 «= 41-228 
EH150 37-14 41-250 
EH2 89 37-21-38 
EHO13. 37-15 41-278 
EH220 37-16 439 41-294 
EHS 0s 37-8 «= 41-48 
EHS =«s-s«37=3)—s« 41-58 
EH57 037-5 ss 1-8 
EH65 49 37-6 )=— «41-108 
EH? 0«s-s«37=4—s«G 1-7 
EH71 37-7 ss 1-128 
EHT] 8-3 8-49 8-52 8-55 8-58 8-61 8-64. 8-70 8-73 8-76 8-79 8-82 8-85 8-88 
8-91 8-96 8-97 8-100 8-106 8-109 8-112 8-115 8-118 8-121 8-124 8-127 130 8-133 
8-136 8-139 8-145 8-148 8-151 8-154 8-157 8-166 8-169 8-184 8-187 8-190 8-196 8-199 
8-205 8-208 8-214 8-217 8-220 8-223 8-226 8-229 8-235 8-238 8-244 8-247 8-253 8-256 
8-259 8-277 8-280 8-283 8-286 8-298 8-301 8-307 8-310 8-316 8-319 8-322 8-325 8-328 
8-334 8-340 8-343 8-346 8-349 8-355 8-358 8-367 8-376 8-379 385 B- 8-391 8-396 
8-397 8-424 = 8-427 = 8-430 = 8445 8-448 = 8451 8-454 = 8-457 = 8-460) 8-473 «Ss B-479 Ss B-485 8-488 
8-492 8-495 8-498 8-501 8-504 8-508 8-511 8-515 8-518 8-521 8-524 8-527 8-530 8-533 / 
8-537 8-540 8-543 8-546 8-549 8-552 8-555 8-558 8-561 8-564 8-567 8-570 8-573 8-576 
8-580 8-583 8-586 8-589 37-14 
EHT115 8-232 8-241 8-250 8-262 8-409 8-412 8-476 37-98 
8-268 37-104 
8-274 8-289 37-114 
8-298 8415 57-128 
38-331 8-337 8-361 8-364 8-370 8-400 8-406 8-467 8-470 B-4B2 37-148 
8-421 8-464 37-154 
8-436 8-439 8-442 37-16# 
8-18 37-34 
37-54 
8-163 37-6 
37-44 
8-175 8-178 8-193 8-202 8-211 37-7# 
37-84 
36-4 40-34 
36-131 40-104 
40-114 
36-120 36-122 40-1 
36-138 36-140 36-142 40-144 
36-146 36-150 40-154 
36-146 36-148 36-207 36-327 36-329 = 36-346 «= 36-348 += 36-364 36-380 36-400 40-164 
36-153 36-155 36-337 40-174 
36-153 36-157 40-184 
36-187 36-211 36-239 += 36-243 += 36-248 ~=—36-259 36-339 «36-344 40-40 
36-160 36-162 36-164 36-166 36-168 36-172 40-194 
36-160 36-164 36-166 36-168 36-170 36-350 36-366 36-382 36-402 40-208 
36-162 36-166 36-168 40-214 
36-175 36-179 40-224 
36-175 36-177 36-359 36-375. 36-391 36-417 40-234 
36-182 36-186 40-244 








EE ee RE 


ee 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0300 
| EMS250 36-33 «= 36-36 «= 36-39 = 36-75. 36-197 9 36-199) 36-201 36-203 936-271 «9 36276 §=— 36-291 36-296 9 356-317 40-634 
 EMS251 36-41 36-44 «= 36-47 «= 36-302) 36-313 = 40-640 
—-EMS252 36-49 «= 36-52 36-54 = 36-56 = 36-58 = 36-60 «= S662 36-64 49 36-66 = 36-221 36-223 «36-341 40-650 
| EMS253 36-49 -79 36-81 36-83 6-85 = - 36-88 36-91 «= 36-94 = 36-221 9 36-223 40-668 : 
| EMS254 36-49 36-142 36-148 -155 36-170 36-177 936-184 9 36-194 40-674 
| EMS255 36 36-70 36-73 “75 = 36-205 36-213 = 36-271 «= 36-285 = 36-291 36-298 9 36-422 40-688 
EMS256 36-96 36-98 36-101 36-104 36-271 36-274 40-69% 
EMS257 36-106 40-70# 
EMS26 §=—- 36-180 9 36-182 = 36-184 9 336-353 9 36-369 §=—- 36-385 9 36-415 9 40-254 
36-110 36-113 «36-116 «= 36-133 40-714 
EMS261 36-209 40-724 
| EMS262 36-302 36-315 36-321 36-323 40-734 
36-196 36-287 36-404 36-405 36-407 36-419 40-264 
36-245 36-265 36-269 36-289 36-292 36-294 36-337 40-S# 
36-201 36-203 36-213 36-217 9 40-27h 
36-54 36-56 36-77 36-81 “83 36-118 += 36-124 9 36-127 9 36-136 = 36-187 = 36-211 
36-259 36-271 36-274 36-276 36-339 36-344 36-422 40-75« : 
36-13 36-15 36-33) 36-36 = 36-39 36-41 36-44 36-47 = 36-49 36-58 2 36-60 
36-68 36-70 36-73 36-75 36-85 36-88 36-91 36-946 36-98 36-101 36-104 
36-133 36-142 «936-148 9=— 36-155 36-170 936-177 9 36-184 9 36-194 «= 36-225 36-267 «= 40-768 
36-15 40-774 
36-225 36-267 36-309 36-311 40-80% 
36-239 36-243 9 36-248 39 36-259 36-339 9 36-344 9 40-814 
40-824 
36-43 36-46 = 36-69 «= 36-72 = 36-87) 36-90 36-93 = 36-100 36-103) 36-112 36-115 
36-66 = 36-73 = 36-94 «= 36-104 «= 356-116 936-142 36-148 §=— 36-155 36-170 36-177 0 36-184 
36-29 36-51. 40-86# 
36-31 36-160 36-191 40-87% 
36-23 36-25 36-27 36-29 «= 36-31 = 40-884 
36-70 9 336-75 36-91 = 36-101 36-113 = 40-93 
“62 36-68 36-85 36-88 36-98 36-110 40-94e 
36-93 36-103 36-115 40-95# 
36-87 “90 36-100 36-112 40-964 
36-221 36-256 936-271 «9 36-271 39 36-291 9 36-292 36-302 40-978 
36-205 40-994 
36-172 36-179 36-186 36-196 36-333 36-362 36-378 36-396 §=—- 36-413 = 40-1008 
36-162 36-168 36-247 36-258 36-261 36-307 36-313 36-315 36-317 36-323 40-1014 
36-252 36-302 36-307  40-102¢ 
36-254 36-254 36-261 36-304 36-352 36-361 36-368 36-377 36-384 36-393 40-1034 
36-353 36-364 36-369 36-380 36-385 36-400 36-404 36-415 36-419 40-104e 
36-164 36-166 36-175 36-182 36-192 36-217 36-221 36-231 936-250 936-252 = 36-254 
36-291 36-300 36-305 40-1054 
36-348 36-353 36-364 36-369 36-380 36-385 36-400 36-415 40-106 


| 


CZRMPBO RMO5/3/2 DSKLS TST 1 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


EMS 341 








36-146 


3 
40-1474 


36-151 
6-221 
36-129 


Ww 


36-225 


40-1224 


36-311 


36-168 


36-237 


36-269 


36-158 
36-274 
36-135 


36-302 


36-241 
36-233 


40-1204 


36-235 
40-354 


40-1254 
36-241 
36-245 
36-405 
36-337 


40-1444 
36-254 


40-424 


36-164 
30-658 
36-3353 


40-1114 


36-245 
36-241 


36-257 


36-245 
36-269 
40-1304 
36-341 


36-166 
40 


36-215 
36-194 
36-341 


36-250 
36-245 


36-261 


36-369 
36-411 


36-331 


36-279 
-1084 


. 
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36-173 
36-281 


36-281 
40-1154 
36-346 


56-269 
36-269 


36-325 


36-333 
40-1294 


40-1324 


36~371 
36-413 


36-335 


36-175 


36-253 


36-283 


40-1144 


36-535 
36-289 


36-352 


36-335 


40-1414 


36-373 
36-415 


40-364 


36-180 
36-287 


36-285 


40-1174 
36-294 


36-357 


36-337 


36-402 


40-1394 


36-378 
36-420 


36-182 
36-319 


36-287 


36-296 


36-361 


40-1274 


36-417 


36-380 
40-1434 


36-192 
36-422 


36-319 


40-1578 


36-385 


SEQ 0501 


36-201 36-203 
40-1074 


36-321 


36-337 


36-3753 


36-387 


40-1124 


40-1184 


36-377 


36-389 


Fr ee 
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CROSS REFERENCE TABLE (CREF VQ1-05 ) 


—MSSO1 


EMS502 
EMS5S03 


EMS504 


EMS505 


36-5 
36 


36-400 
36-311 


36-11 


36-407 





36-14 


40-84 


36-16 


36-284 
36-322 


36-359 


36-18 


Wu 
oOo 

‘ 
‘Oo 
w 


36-286 
36-324 


36-590 
36-421 


36-362 
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36-20 


36-288 
36-526 


40-1654 
40-1664 


36-396 
36-415 


36-22 


36-71 


36-395 


40-1584 


40-1674 


36-417 


36-24 


36-420 


LD LET ES EET EE OO A A IO ~ — 


36-26 


40-1684 


36-28 
36-67 


36-30 
3 


SEQ 0302 


ae ee ee eae atalino 


ee _——, 


ee 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


EMT151 


36-315 


36-2514 


36-317 
36-325 


36-319 
36-327 


36-353 
36-413 
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40-544 
36-329 36-3531 36-335 36-335 36+355 
36-364 36-369 36-380 36-385 436-398 
40-594 


SE SPO EA LE A Ee ee En eh A ie ee sa ee sree 2 


36-371 


36-400 


36-387 


36-415 


40-554 


40-584 


SEQ 0505 


eee ~~ ee ree - 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 


| —MT152 


EMT 233 


36-2354 


36-3354 


SEQ 0404 


SE SE EOS OS oe —_ 
LL EEL A A Ann " —_ 
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CROSS REFERENCE TABLE (CREF VOQ1=05 ) 


EMT 254 


36-3378 
36-3394 


36-3444 
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LDBBDBAABAMAMMMMMMMMMA AAA AAA AAA AAA BAA OE 


‘ LOLOL LLL LLL LLLELL ALLE LCE LCC UL Ie Ct et att tii 
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CROSS REFERENCE TABLE (CREF Vv01=-05 ) <EQ 0506 


EMT77 8-190 36-1404 
EMTVEC 4-6824 9-23* 9-23* e 


ERR 4-751# 15-096 15-E00 13-EQ06 13-E22 135-E47 13-E48 135-163 
ERRNMB 26-48* 26-49% 26-52 26-57 26-64 26-1604 


ERRTYP 25-1 26-134 

ERRVEC 4-6824 9-23 9-23% = =23% 25% 2K 13-526 13=K 25 13-<26" = 13-<27%  13-<33%  13-<34% 13-<38*  13-<39e 
13-<67 -13-<68 =: 13-<69x 13-<70x 13-<90* 13-<91" 13-<98e 13-<99* 15-6 15-7 15-8* 15-9 15-25% 15-45 
15-46% 24-1 24-1 24-1 = 2h=1® «= 2h-1e® = hate = hate = 25-1 25-1* 25-1 


— 4-8234 13-a85 13-a92 13-c45 13-c50 8 135"k10 = 13=k15 


: 4-6934 
FI 4-6924 
F2 4-6914 
F3 4-6904 
F4 4-6894 
FER 4-7754 4-781 13-695 13-724 


FMT16 4-849% 13-870 13-B25 13-B43 13-863 13-865 13-(65 13=(€67 8 13-D24 13-D26) «8613-077 = 13=D79) 1 3-E360)=— 1 5=P5) 
FNCDIB 1 13-K14 13-M75  13-N20 13-R17 33-554 








——L—L 


V———_————— EE ee 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 
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SEQ 0308 
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CROSS REFERENCE TABLE (CREF vOQ1-05 ) 
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ne eee a 


ee eee e+e —-+ <= 


a mt a es ee ee oe ae ms ee re ee ee me eee | 
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MACRO V04.00 4=-APR-81 01:24:25 PAGE S-27 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


SEQ 0313 


CZRMPBO RMO5/3/2 DSKLS TST 1 


13-395* 
13-828 
13-g00 
13-g00 


13-391 
135-825* 
13-e55 
13-e55 


13-283 
13-815 
13-b49 


13=b49 


13-271* 
13-807 
15-*52 
1332 


13-244 
13-804« 
13-£69 
13-[69 


13-238* 
13-507* 
13-u82 
13-U84 


13-231* 
13=504* 
13-U78 
13-U78 


13-U50 
13-U50 


13-U39 
13-U39 


13-21 
13=U21 
135-w97 


13-k95« 
13-10 
13-093 


13-U10 


12-S39* 
13-k95 
13-T92 


135-192 
13-J42 


13-k65* 
13-T81 
13-171 





PL A ee ee ee ee eee eS. 


Neen nnn cnn n crn nnn estes sts esses eeesoesnereerencenerenem 








4 
CZ7RMPBO RMOS/3/2 DSKLS TST 1 MACRO V04.00 4=APR-81 01:24:25 PAGE S-28 
CROSS REFERENCE TABLE (CREF VO1-05 ) SFQ 0514 


13-wO7 s- 13-W560 735=K01)0=—-135=K71)—ss-*13=¥48) = =13-\10) Ss 135*_01) 0 -13*c07) = 134¢75)0=—134g77) SS 13"k51 0s 149 
SEARCH 4-711# 13-F99 13-135 13-J62 13-058 135-R52 135-R97 13-_16 13.57 13*'01 13-°36 13='97 13-857 13=b29 
SEEK 4-700# 13-H14 13-J22 13-061 13-\25 13-\66 13-]07 13-341 13-386 13-*47 
SETVV 13-M60 13-M98 13-054 13-079 13-089 13=P23 13-P46 13-014 13-091 13-R40 13-R89 13-531 13-172 8 13-U01 
13-U30 = 13-U62013-W60)0=—s 13=K05) = -13=X98) = «13-¥50) 3=—:«135-¥8B =« 135-2726) «= 135-257) = 13=299 Ss 13-[56 = 13-\14 13=\55 =: 113-\ 96 


13-]30 13-175 = 13-*36 «13-05 13.46 13-90 -13-'2513='86 = 13-246) -13=b18 = -13-c09—-13-c79-—:13-d19—s: 13-e11 
WSne71 13-865 13-gB1_ 13-25 13-706 15-769 13-j59 13-82 16-154 


th 13-152 §=13-956 §=13-958 13-816 13-828 13-830 15-844 13-048 


SNGPR 

STACK 4-6824 9-23 13-1 13-73 13-106 3813-137 8 =(13-159) §=6135-329)0 13-521) = 13-5460) 13-557 3S: 13-610 §=13-677 =: 13-781 
13-794 13-864 13-973 13-996 13-:49 13=:77 135=:97 135=;41 135-<03 13-202 13-=19 13-=77 13=>42 13-703 
13-@05 135-066 135-A26 13-808 13-876 13-C78 13-031 135-084 13-£64 13-E99 13-G20 13-H70 13-145 13-J84 
13-K30 135-K64 8 13-L96 8 135-M56—ss 13-N40 13-N79 13-009 13-048 13-074 13-P18 13-P39 13-P66 13-010 
13-087 813-R35 8 13-R85) 8 13-S22) 9 =4(135-S72) 13-729) 135-747) = 135-770) 13-199) 13-28) = «13-058 ) Ss «13-U95)=—s_ «13-3300 « 13-53 


13-V86 0 13-WO7) SS 13-W5600S135=KX01)0—s 15=X71)— ss‘ 13-¥48 = = 13=\10)Ss- 13=_01))=— 135-c07) = 13"c75 0S 13=g77 Ss 13=k 51 
9-67 10-34 


STOPCL 7-Of 13-K52 0 -13-P920 —-13-P97) = 135-¥21)0 = 13-¥31))=—s-135=c65) = d13-c71 = 13+e90)3=—s:*113-e96) = «*13-f62 =: 113-f68 =©13-h00)=—_:« 13-06 
13-h44 =6135-hH50)=—s «13-1300 =: 13-136) = 13-192) = 135-198 = 13-j78 3=135-f84 = 135-611) = 135-117) 0 15-14% 3=— 15-28 


a 
SW13 hie 26-14 


4-6824 
SwWw3 4-6824 
SwW4 4-6824 
SwW5 4-6824 

4-6824 
SwW7 4-682 
SW8 4-6824 
SW9 4-6824 

6-04 


9-23 9-23 9-23 9-23" 9-25 9-28 24-1 24-1 24-1 24-1 24-1 24-1 24-1" 
24-1 24-1 24-11% 25-1 25-1 25-1 25-1 25-1 26-14 27-1 27-1 27-1 50-1 30-1 
SWREG 5-14 9-23 9-28 27-1 27-1 27-1 
SYSTAT 9-77 32-208 


at 





EE SS RN ES EE OE Se EES RS ee oe eee = eben sae ee eee A ee eee eee 


| CZRMPBO RMOS/3/2 DSKLS TST 1 
CROSS REFERENCE 


13-1064 


TABLE (CREF VvO1=05 ) 


13-C28 
11-63 
11-63 
11-55 
13-(96 
13=b90 
13-m52 
6-0 
15-57 
27-1 
9-23* 


13-918 
13-g19 


13-[97 


13=-(98 


15=72* 


13-F 19 


13-F 42 


13-F 69 


13=\01 


13-F 77 


D9 
MACRO VO04.00 4=APR=81 01:24:25 PAGE S-29 


13-F 85 


=* 


-945 
=m 


ad ad ond 
WANA 


13-F 93 


Oe EE ee me ee . — - 


13-G01 


15-G09 


i 
13-903 


13-£69 


13=*92 
1 3-m49 


135-“52 


SEQ 0315 


13=-b87 
13=-m50 
13=m95 


12=b49 


13-=774 


CZ7RMPBO meee / 22 ¢ DSKLS TST 1 
CROSS REFERENCE 


9 
10-54 


26-1594 


10-61 





10-62 


9-60 
10-16 
10-69 


—E 9 
MACRO V04.00 4=APR=-81 01:24:25 PAGE S=-30 
ABLE (CREF v01=05 ) 


13-106 
+ aa 


Fh 


13-329 


13-521 
13-<03 


13-546 


SEQ 04164 
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MACRO VO04.00 4=-APR=-81 01:24:25 PAGE S=-31 


' CROSS REFERENCE TABLE (CREF vO1-05 ) 


F 


SEQ 0317 


— CZRMPBO RMO5/3/2 DSKLS TST 1 


11-16 11-69 26=22, 26247 2652 2654 29414 


9-82 


13-:62 
13-939 
13-816 


13-931 
15-808 


13=;52 


13-:90 
13-882 
13-507 


13-L42 
13-509 
13-512 
13-456 


15-764 
13-459 
13-475 
13-417 


15-759 
15-437 
13=420 
13-395 

9-128 


13-756 
13-376 
13-398 
13-287 

9-126 


13=+?31 

13-Y06 

15-303 
9-55 


13=?26 

13=x54 

13-300 
9-44 


13-076 
13=x50 
13-240 

9-39» 


13-L14 13-003 


33-78 


13-F 71 


4-93514 33-77 
13-97 


4-7154 
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G 
MACRO VO4.00 4=APR=-81 01:24:25 PAGE M~1 


SEQ 0416 


CZRMPBO RMOS/3/2 DSKLS TST 1 


' 


29-14 
13-h06 


13-h00 


29-1 
13-105 


13-f68 
13-j72 


13-186 


6-0 6-0 6-0 


6-0 
6-04 


19-1 


4-6724 
4-6724 2E&-1 
4-6724 27-1 
4-6734 
4-672# 21- 
4-6714 23- 
4-672# 22-1 
4-670 


4-6544 


S$CMITM 


| CROSS REFERENCE TABLE (CREF vO1-05 ) 
SSCMRE 


| 








ae re ee ee 


ae) LLL LOLLLEAL LL LLL LLL LLL LLL LLL LE LL LO CL LE ee eel tt at 
SL A ET A A A Ne 
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MACRO VO04.00 4-APR-81 01:24:25 PAGE M-2 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


H 


SEQ 0319 


CZRMPBO RMO5/3/2 DSKLS TST 1 


awn 0000.0") aorcnr Ww c- Weer MND WT Ow 
MICCSAS FRBO BSRARS a alta mm SS & EMS OR W UG 
MOTTE, YETI TTT tha kchbek ae ae es a a a 
pervetet tt 
MMMM wv’) alae) sw mM NON Mme Ww ale 
Nm) CUO DWN ARKR WAM A oO —O >) —- Orr WoO w On. 
Ban cnosoNNw TMWWO SOS BRROS 00 e—- a) Ns =? rw Ww ala! 
POT TTT TPT TTT TE ht i a ae a... ea are 
2b 00 00 0 00 0D. 0 COMM) Re en ee at valcalcalvalca NYNY nal Daalala) Palas Cala 
--—--— et weet seth meh sel coh wel eel eel peel eh eel pe = = = ee ell sell aed ~~ ta - 
~) RFonve ONM MMO m™ O . @) —- Mm~yworw run -m om 
RIN SE PUMAS OD TTTITTTIL it rs OU : eT ce. 4 ei 
ob 00 6.00 60.00 GD COMM) RUIN WS We etal val val valvalnalcalca ala al anal alna) MIN Mm valve 
eh ae ieee EE EE EE =e = - mo “-—— =_ eo 
n WOM WM = DODMNUDORA OAUA Ww Via) —- MORK  e~ GO 00 \O -* 
NO DING SOR MM WAN) 00 SF ONUM OR AT TOMO on ra) WwW OND CORA Ww 
ERR R RE RI CAR AR a a RRR i. of ¢ Ft OTKSY OTT 
cei Seeth, See eee eel Seat meee Soi Soe eee ee mee mee me, coe eee wee, see, aa = = = = == CP eK = -—- 
| MDAMAOOWMW Osu owuwrwrwn wn OO ve) ~ wOowo mT Oe ND 
SNS SOOM Sa Ne Hin ONS NM TAARAOM Wolo oO co DOR Om-—Orr ares 
Meriter tiie |6COUTS CUCU SER OTEESE OT 
0.00 00.00. 00 CO. CO COMI MM MMMM MINN NM) ala al ala NM ral Mm MMM Walealalalea) alee 
Sh seh mee pee ee see me oe ee eh oe el oe eee -- Sa ~~ cel ae ee eS eE - 
~ MIW1 00) O ~F CU OR. PIA OCOO CUM OCUCU@MWMNWN0 = vs) Www GO Wm wor... —~- OR CUCU wO~T 
POUT TT TTT Lee eT eT Td ee Be ae ce ke 
ceed meee eet seed eee ee ee eh ee eee oe ee ee ee ee ee ee eh eh at - = ee - ere Se - e -_-—c 
TFODONMOMOO- DK ODO OMATOOANe TT NW - ~s oOCcP Mo Tr or) 
NAOT OMAR —DAD—OMNOD— WNAWU =O Mw ~m m mwo-r- Mh Oe O win 
fees aeewnwe Ohba eos ¥E ie ee SI Gerd es TPetec 8 06Te 
00 00 09 0D C0 COCO COMI MMMM MM) EEO MOM PH MPO My Py) mM a) —s BORON MOREA IS mM 
S22 LEE LSK.ES LSPS SSC SCS SSeS -e = ~- = = FPP Ee = -— 
MARK. ACUR OWDODsTMHOMMWUOTAUNDOWOOWUOUM OM Oro ™N mM CUCU Ms one WMm~T 
Me MOAMOCUR WAR OOWMN—CUAMO OMMMMOMoOr oN e ma OO fh 0OOr-O~r Misr 
CUMMINS TWN UV AC EAD «KK 8 Ore ous ~w wT Awzt> Moi- MCE Zw 
EEC SREB SRR STV ERREKRHE ERS ie 1 ! tee | | 't 
CO 00 00 CO CO QO DO DMIMMIMIM MMMM MMI POM POM PhO Mm) mM nm) mM ROOM MM RONEN mM 
See seek eee ce el ee ol ee eel oe ee ee el ee el ee el el ee =e = o = FE =e =r oo 
mows OW SK FT -Te— MODODODIMOOMMTOOr-OO Ow © m tucdwo NM) OO wr wr rh My~r 
DO -—NOME UDMA FR CUD OO OSTOMY Cust OO we On nm Aerts.’ mMUAMR Cy 0 3 
Pewee & kaw hee Oe & oe eae ee TOS Ee ala) a mM Ax Mec. IEC "1 © 
BBPeSeeagtrgCctirts ee 2 2s FQateevre xe tt t | ee :t ££. 34 tt 
00 0060 0900 DO CO COM MMMM MMMM MOM My ROMP hy MA) mM my Ss ROMIN MM RIAN) RIND 
SE EF FLL CLL CES SCS SCS Se -— - = eel ee med aed weed mood el nae —— 
WER Wee IO TMC MT MORONS — TAMOMOCY Ow © Nm cmMmMr MUNCO~wiA~r = 
WOTAMEK UOOTMIM Oe DWA— DOCUDDO sows Cu 0o nN nN ee Ae MYER Mer O we 
CMM M TTA NRO te ABA UOT D SINC DOL SY Oe ™N “Mw AWS NON EBes H> 
BReSeOeerererseea eS Kae Re KRA eS ese ‘ft a ' mae Ben ER | 
GO 00 GO 0D 00 00 00 COMI ME EYED POA ID ARID PO) AT) PD) mM) wy ms NOROM MMM S ROR AON) 
meek eek need gee el eel eel el eek oe eek eh el ed ee ee eh nee ie ae fr , eee al aed C2 FE -— 
MTODOMOA— NRK Fer wsys KR O-—- OOMNTOMR Orn © NM OMO WO MOMMOMmM BR © 
iw wwe t heh awe Uwe aha de WE KE SOR re alee dee aes oo hk BES oR we 
00 00 G0 GO 00 00 00 COM MOM MIND BD ITI) IID II A) mM) a) Mm OMOMo-RM, MMO MONSON RON 
eed eel ae ed oe el ee el ee el el ee ol ee eel mee ml -r = ~- Fee = = SECC SK 
AKMAKROWMD MK MOOK OMO-—WNORA OVO awn ome sOormvoo Mer WNOOMe BRO 
NOT DOOR NR AUK MARK NAR KRNK MN OO CW oOo oom aoTrasroo™) wees o Co 
LOT FOOL TS hl BOT TOSH Beit, Dee TT OT? Tete eT TY ae to 
SP EF CM CME FECES EK & = = fF el seed sel eel eel eel el eth eee eee ceed eel oo -— 
OwMmOrusKR—wv Wa Aer Ans omMeOOoOosrw M™ Or ~ ”) WOO - OO ne 
Yi WORE wweR RETR GC ahhh ee oR we Be deans Bodh oh Bethe hi 
SE FF EM EF EHC SEK SEEK = ee I Sel sel sel ee ool cel ool weed eel sell ti el sel ek ee ol ee 
aS rah 3 RR RR 2 2 
MAN OT OCMCUNON RK VAR OR MN STOWMOSTNMR—Oa Ls 4) DOoOwMnnm © ™N 
Loddon ath EETTTO LEE TELE TPT EET TTT TET ETO LeeLee TE 
00 00 60 00 60 00 00 00 fF MM MAMI MMM MMMM ANI NNININA ee SE bt bt ba ba .aa Res SMe em 
Oe EF CF CF FE ES SS OS = =e a - eed as 1 al _ _ 
av aw 2a Ue — ih a <2 
Ww OW 
© S2aaC WO pat a Ow Ww uu $< 
= oe Oe be Boe —— — be —_ ee 
WJ 
ve WOOOR O26 68 & S858 & BS8S 


—— ae 





TT ee SS ee sr 
ee me eee 
LL A TN eS LL EE EEN ee eee eK 
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MACRO V04.00 4-APR-81 01:24:25 PAGE M-3 


— CROSS REFERENCE TABLE (CREF VvO1-05 ) 


SEQ 0320 


CZRMPBO RMOS/3/2 DSKLS TST 1 


13-e47 
13-819 


31-1 


13=b48 
13-852 


30-1 


13=*51 
13-825 


13-68 
30-1 


28-1 


13-U77 
21-1 


19=1 


18-8 
13-w16 


13-V93 


15-7 
13-V74 


15-6 


13-<68 
13-Vv60 


13-<67 
13-v09 
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MACRO VO04.00 4-APR=-81 01:24:25 PAGE M=4 


| CROSS REFERENCE TABLE (CREF vO1-05 ) 


J 


SEQ 032% 


CZRMPBO RMO5S/3/2 DSKLS TST 1 


WOoOmawnk va Wo 
eee OUR wom 
Nw Owa--Dwe- vd 
tt PERSE tt 
MINA RON SMO) 
ek cel oe ooh ee 


KROMADMNA Ds KAMA EK WOOK 

x PAS SAK Sheen eo tee ROoeS? 
"4 tt PPT Tree tris 
RRR RT Ter eaT tal val al al olvalralral ra L rar eret 
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MACRO VO04.00 4-APR-81 01:24:25 PAGE M-5 


| CROSS REFERENCE TABLE (CREF VO1-05 ) 


K 


SEQ 0322 


~ CZRMPBO RMO5/3/2 DSKLS TST 1 


29-1 29=1 29~1 29~1 29~1 29-1 29-14 


29=1 


Kw OADWMO Owsnowoork- 
MUNA Reon om", 
mw u PrOEe ed ee 
'i2:e)e : a rhe ’ 
wa Lik Ld Lad Ln Ln Ln Lin La Ln) mre 
ee ee OY 


WMUWOAQABDMNAAK. WO 
TTT tT Tht ttt 
MMMM MMR MMM hom uy 
Seek eh seek week see eh seh Seek eh eee eh ee oe 

WMOUOOKR. OMAK — fh 

ONS SS SS Sas mn 
HNO 1 CWIOCe- 3oaxXe 
92:00 080 8 8 U8 se 
MMMM MA OM hy my My MyM wr 
SS rr KK 

eT pOoOrrornowur 

eV aaa Ste 
OwMnwovV@ewwOoCGr> tr- 
BERR Kaeser 
DMM MM MMM mmm any m 

cee ee Sr ee 

—wTMOoOvrTOrn.Owor— 
OwmocwovVGewwOSCr> tre 
eo 8 8 2 2 2 ee £2 Fe 
OMIMM MMM MMM Mpa cu 

SECC COSC CCS’ SK ST 

At—NTFORORMO’KN 

NATOOMR — TN 
omr Te eT? ak Or = 
Bares er ae oe 2 2. 
NOM MMMM MMMM MMM c— e— 

SCLC CCC ST ECM 

ATt—-NnATORKORMOR 

VAT OOMNR+- wTNe Kh 
comr i ke oe Or— = 
eee se 2S EBRernmty 
UMMM MMMM MMM MyM) CO © 

cece ee rr ee OI 

A—R Me TOUAMAON 

WMOOOM Ost OCUM ~T O 
Crm + t- OM ZA See ee 
Pesta stewreererees Ss. 
AMM MMM MORO MMI) Os C 

OO KM 

AK M—TOOAM Oe 

WWD OM 0 wT OCUM) ~F COO 
PTT rete Teed 
MMMM MMMM MM M)M) <7 Os 

SO CK eK WY 


AN AI D-H ARONDORN-O~w 
= 

POT PORT POPP TP TAP TET OPE EET 

FTO Tr III) oe MIM MMMM NDI DID 
~N —— re ee TY 
— 

ra 

SxzSeS awe 

ty a ay i iat! 

ANNMY Ban 


26-47 26-52 26-54 
9-60 11-30 14-20 14-20 


26-22 


11-69 
9-53 





